CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory alpha-cl-net:/tmp/cvs-serv15795

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
For CCL, also search nx1-alphatizer definitions.

* swank-ccl.lisp (alphatizer-definitions): New
(find-definitions): Use it.

--- /project/slime/cvsroot/slime/ChangeLog	2013/06/26 11:51:50	1.2403
+++ /project/slime/cvsroot/slime/ChangeLog	2013/09/29 07:39:39	1.2404
@@ -1,3 +1,10 @@
+2013-09-29  Helmut Eller  <heller at common-lisp.net>
+
+	For CCL, also search nx1-alphatizer definitions.
+
+	* swank-ccl.lisp (alphatizer-definitions): New
+	(find-definitions): Use it.
+
 2013-06-26  evenson  <evenson at saturn>
 
 	* swank-abcl.lisp (specializer-direct-methods): Correct symbol
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2013/02/02 10:11:16	1.32
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2013/09/29 07:39:39	1.33
@@ -545,11 +545,17 @@
               (t `(:error ,(funcall if-nil-thunk))))
       (error (c) `(:error ,(princ-to-string c))))))
 
+(defun alphatizer-definitions (name)
+  (let ((alpha (gethash name ccl::*nx1-alphatizers*)))
+    (and alpha (ccl:find-definition-sources alpha))))
+
 (defimplementation find-definitions (name)
-  (let ((defs (or (ccl:find-definition-sources name)
-                  (and (symbolp name)
-                       (fboundp name)
-                       (ccl:find-definition-sources (symbol-function name))))))
+  (let ((defs (append (or (ccl:find-definition-sources name)
+                          (and (symbolp name)
+                               (fboundp name)
+                               (ccl:find-definition-sources
+                                (symbol-function name))))
+                      (alphatizer-definitions name))))
     (loop for ((type . name) . sources) in defs
           collect (list (definition-name type name)
                         (source-note-to-source-location