Fixes #450.

Clozure · Apr 22, 2024 · db68b3f · db68b3f
1 parent b355718
commit db68b3f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/source-files.lisp b/lib/source-files.lisp
@@ -462,7 +462,11 @@ The returned list is guaranteed freshly consed (ie suitable for nconc'ing)."
              (if (and (find-class 'xref-entry nil)
                       (xref-entry-p name))
                (setq implicit-type (xref-entry-type name) implicit-name (xref-entry-full-name name))
-               (setq implicit-type t implicit-name name)))))
+               (setq implicit-type t implicit-name
+                     (if (and (consp name) ; ensure things work for functions internal to methods and functions
+                              (eql :INTERNAL (car name)))
+                         (car (last name)) ; handles anonymous :INTERNAL as well as named :INTERNAL (i.e. flet and labels)
+                         name))))))
         (setq implicit-dt-class (class-of (definition-type-instance implicit-type)))
         (with-lock-grabbed (*source-files-lock*)
           (loop for (nil . dt) in *definition-types*