[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-cmucl.lisp 
Log Message:
* swank-cmucl.lisp: #-cmu19 -> #+cmu18, cmu18 is allegedly the
oldest supported CMUCL.


--- /project/slime/cvsroot/slime/ChangeLog	2010/09/01 13:18:55	1.2135
+++ /project/slime/cvsroot/slime/ChangeLog	2010/09/02 17:21:09	1.2136
@@ -1,3 +1,8 @@
+2010-09-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-cmucl.lisp: #-cmu19 -> #+cmu18, cmu18 is allegedly the
+	oldest supported CMUCL.
+
 2010-09-01  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-sbcl.lisp (background-save-image): add #-win32, because it
--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/08/31 23:44:40	1.229
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2010/09/02 17:21:09	1.230
@@ -27,7 +27,7 @@
 ;;; `READ-SEQUENCE' with large sequences has problems in 18e. This new
 ;;; definition works better.
 
-#-cmu19
+#+cmu18
 (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
+#-cmu18
 (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*
+                        #-cmu18 xref::*who-is-called*
+                        #-cmu18 xref::*who-macroexpands*
                         xref::*who-references*
                         xref::*who-binds*
                         xref::*who-sets*))