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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(print-arglist): Use with-standard-io-syntax to avoid further surprises.
Date: Wed Mar 10 10:49:34 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.142 slime/swank.lisp:1.143
--- slime/swank.lisp:1.142	Wed Mar 10 10:45:10 2004
+++ slime/swank.lisp	Wed Mar 10 10:49:34 2004
@@ -749,23 +749,24 @@
     (print-arglist arglist)))
 
 (defun print-arglist (arglist)
-  (let ((*print-case* :downcase)
-        (*print-pretty* t)
-        (*print-circle* nil)
-        (*print-level* 10)
-        (*print-length* 20))
-    (pprint-logical-block (nil arglist :prefix "(" :suffix ")")
-      (loop
-       (let ((arg (pprint-pop)))
-         (etypecase arg
-           (symbol (princ arg))
-           (cons (pprint-logical-block (nil nil :prefix "(" :suffix ")")
-                   (princ (car arg))
-                   (write-char #\space)
-                   (pprint-fill *standard-output* (cdr arg) nil))))
-         (pprint-exit-if-list-exhausted)
-         (write-char #\space)
-         (pprint-newline :fill))))))
+  (with-standard-io-syntax
+    (let ((*print-case* :downcase)
+          (*print-pretty* t)
+          (*print-circle* nil)
+          (*print-level* 10)
+          (*print-length* 20))
+      (pprint-logical-block (nil arglist :prefix "(" :suffix ")")
+        (loop
+         (let ((arg (pprint-pop)))
+           (etypecase arg
+             (symbol (princ arg))
+             (cons (pprint-logical-block (nil nil :prefix "(" :suffix ")")
+                     (princ (car arg))
+                     (write-char #\space)
+                     (pprint-fill *standard-output* (cdr arg) nil))))
+           (pprint-exit-if-list-exhausted)
+           (write-char #\space)
+           (pprint-newline :fill)))))))
 
 (defun test-print-arglist (list string)
   (string= (print-arglist-to-string list) string))