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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(swank-pprint): Bind *package* to *buffer-package*.
Date: Thu Feb 26 02:13:01 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.126 slime/swank.lisp:1.127
--- slime/swank.lisp:1.126	Wed Feb 25 15:49:37 2004
+++ slime/swank.lisp	Thu Feb 26 02:13:01 2004
@@ -929,7 +929,8 @@
         (*print-circle* *swank-pprint-circle*)
         (*print-escape* *swank-pprint-escape*)
         (*print-level* *swank-pprint-level*)
-        (*print-length* *swank-pprint-length*))
+        (*print-length* *swank-pprint-length*)
+        (*package* *buffer-package*))
     (cond ((null list) "; No value")
           (t (with-output-to-string (*standard-output*)
                (dolist (o list)