[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
	* swank-sbcl.lisp (who-specializes): Implement.
	Requires SBCL 1.0.32.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/11/02 09:20:34	1.254
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/11/21 21:32:57	1.255
@@ -834,19 +834,22 @@
   
 #+#.(swank-backend::sbcl-with-xref-p)
 (progn
-  (defmacro defxref (name)
+  (defmacro defxref (name &optional fn-name)
     `(defimplementation ,name (what)
        (sanitize-xrefs   
         (mapcar #'source-location-for-xref-data
-                (,(find-symbol (symbol-name name) "SB-INTROSPECT")
+                (,(find-symbol (symbol-name (if fn-name
+                                                fn-name
+                                                name))
+                               "SB-INTROSPECT")
                   what)))))
   (defxref who-calls)
   (defxref who-binds)
   (defxref who-sets)
   (defxref who-references)
   (defxref who-macroexpands)
-  #+#.(swank-backend::with-symbol 'who-specializes 'sb-introspect)
-  (defxref who-specializes))
+  #+#.(swank-backend::with-symbol 'who-specializes-directly 'sb-introspect)
+  (defxref who-specializes who-specializes-directly))
 
 (defun source-location-for-xref-data (xref-data)
   (let ((name (car xref-data))