[Openmcl-devel] get-object-sources method for compiled-lexical-closure

[Takehiko Abe]

slime's meta-dot/find-definition does not work for
#'CCL:PATHNAME-ENCODING-NAME (and other closures unlder level-0).
Adding a CCL::GET-OBJECT-SOURCES method for compiled-lexical-closure
fixes it.

diff --git a/source/lib/source-files.lisp b/source/lib/source-files.lisp
index c1e76bf..9c652c5 100644
--- a/source/lib/source-files.lisp
+++ b/source/lib/source-files.lisp
@@ -418,7 +418,9 @@ definition type NAME"
       (when source
         (list (list* (cons *method-definition-type* (%method-function-method fn)) source nil)))))
   (:method ((m method))
-    (get-object-sources (method-function m))))
+    (get-object-sources (method-function m)))
+  (:method ((fn compiled-lexical-closure))
+    (get-object-sources (closure-function fn))))

 (defun find-definition-sources (name &optional (type t))
   "Returns a list of entries ((a-type . a-name) source . previous-sources), where