[slime-cvs] CVS update: slime/swank-cmucl.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv18041

Modified Files:
	swank-cmucl.lisp 
Log Message:
(clear-xref-info): Conditionalised xref:*who-is-called* and
xref:*who-macroexpands* with #+CMU19. This makes SLIME compatible with
CMUCL 18e, but also disables the `who-macroexpands' command in any
CMUCL version that doesn't have the "19A" feature.

Date: Mon Oct 20 11:09:11 2003
Author: lgorrie

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.9 slime/swank-cmucl.lisp:1.10
--- slime/swank-cmucl.lisp:1.9	Sun Oct 19 17:38:45 2003
+++ slime/swank-cmucl.lisp	Mon Oct 20 11:09:10 2003
@@ -240,8 +240,8 @@
   (let ((filename (parse-namestring namestring)))
     (when c:*record-xref-info*
       (dolist (db (list xref::*who-calls*
-                        xref::*who-is-called*
-                        xref::*who-macroexpands*
+                        #+cmu19 xref::*who-is-called*
+                        #+cmu19 xref::*who-macroexpands*
                         xref::*who-references*
                         xref::*who-binds*
                         xref::*who-sets*))
@@ -312,6 +312,7 @@
   "Return the places where the global variable VARIABLE is set."
   (xref-results-for-emacs (xref:who-sets variable)))
 
+#+cmu19
 (defslimefun who-macroexpands (macro)
   "Return the places where MACRO is expanded."
   (xref-results-for-emacs (xref:who-macroexpands macro)))