CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
For CCL, also search definitions of p2 translators.

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

--- /project/slime/cvsroot/slime/ChangeLog	2013/09/29 07:39:48	1.2405
+++ /project/slime/cvsroot/slime/ChangeLog	2013/09/29 13:45:42	1.2406
@@ -1,5 +1,12 @@
 2013-09-29  Helmut Eller  <heller at common-lisp.net>
 
+	For CCL, also search definitions of p2 translators.
+
+	* swank-ccl.lisp (p2-definitions): New.
+	(find-definitions): Use it.
+
+2013-09-29  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-clisp.lisp (*frame-prefixes*): Update some of the patterns
 	for new layout.
 	(is-prefix-p): Use regexp matching.
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2013/09/29 07:39:39	1.33
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2013/09/29 13:45:42	1.34
@@ -549,13 +549,22 @@
   (let ((alpha (gethash name ccl::*nx1-alphatizers*)))
     (and alpha (ccl:find-definition-sources alpha))))
 
+(defun p2-definitions (name)
+  (let ((nx1-op (gethash name ccl::*nx1-operators*)))
+    (and nx1-op
+         (let ((p2 (aref (ccl::backend-p2-dispatch ccl::*target-backend*)
+                         nx1-op)))
+           (and p2
+                (ccl:find-definition-sources p2))))))
+
 (defimplementation find-definitions (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))))
+                      (alphatizer-definitions name)
+                      (p2-definitions name))))
     (loop for ((type . name) . sources) in defs
           collect (list (definition-name type name)
                         (source-note-to-source-location