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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(arglist-to-string): Bind *PRINT-ESCAPE* to NIL. This way symbols in
arglists are printed as with PRINC, i.e. without package qualifier.

Date: Wed Apr 20 19:23:45 2005
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.293 slime/swank.lisp:1.294
--- slime/swank.lisp:1.293	Sat Apr  9 09:07:46 2005
+++ slime/swank.lisp	Wed Apr 20 19:23:45 2005
@@ -1216,7 +1216,7 @@
     (cons 
      (with-output-to-string (*standard-output*)
        (with-standard-io-syntax
-         (let ((*package* package) (*print-case* :downcase)
+         (let ((*package* package) (*print-case* :downcase) (*print-escape* nil)
                (*print-pretty* t) (*print-circle* nil) (*print-readably* nil)
                (*print-level* 10) (*print-length* 20))
            (pprint-logical-block (nil nil :prefix "(" :suffix ")")