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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(prin1-to-string-for-emacs): CVS CLISP prints NIL as
|COMMON-LISP|::|NIL| if *print-readably* is true.  Set
*print-readably* to nil for a more Emacs friendly printer syntax.
(arglist-to-string): Ditto.

Date: Fri May  7 17:10:38 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.184 slime/swank.lisp:1.185
--- slime/swank.lisp:1.184	Tue May  4 04:13:19 2004
+++ slime/swank.lisp	Fri May  7 17:10:38 2004
@@ -719,7 +719,7 @@
 (defun prin1-to-string-for-emacs (object)
   (with-standard-io-syntax
     (let ((*print-case* :downcase)
-          (*print-readably* t)
+          (*print-readably* nil)
           (*print-pretty* nil)
           (*package* *swank-io-package*))
       (prin1-to-string object))))
@@ -856,6 +856,7 @@
                (*print-case* :downcase)
                (*print-pretty* t)
                (*print-circle* nil)
+               (*print-readably* nil)
                (*print-level* 10)
                (*print-length* 20))
            (pprint-logical-block (nil nil :prefix "(" :suffix ")")