Index: swank-cmucl.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v
retrieving revision 1.229
diff -u -u -r1.229 swank-cmucl.lisp
--- swank-cmucl.lisp	31 Aug 2010 23:44:40 -0000	1.229
+++ swank-cmucl.lisp	1 Sep 2010 00:45:42 -0000
@@ -27,7 +27,7 @@
 ;;; `READ-SEQUENCE' with large sequences has problems in 18e. This new
 ;;; definition works better.
 
-#-cmu19
+#-(or cmu19 cmu20)
 (progn
   (let ((s (find-symbol (string :*enable-package-locked-errors*) :lisp)))
     (when s
@@ -577,7 +577,7 @@
 
 ;;; More types of XREF information were added since 18e:
 ;;;
-#+cmu19
+#+(or cmu19 cmu20)
 (progn
   (defxref who-macroexpands xref:who-macroexpands)
   ;; XXX
@@ -613,8 +613,8 @@
   (when c:*record-xref-info*
     (let ((filename (truename namestring)))
       (dolist (db (list xref::*who-calls*
-                        #+cmu19 xref::*who-is-called*
-                        #+cmu19 xref::*who-macroexpands*
+                        #+(or cmu19 cmu20) xref::*who-is-called*
+                        #+(or cmu19 cmu20) xref::*who-macroexpands*
                         xref::*who-references*
                         xref::*who-binds*
                         xref::*who-sets*))