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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(print-arglist): Updated to handle arglists with string elements,
causing arglists for macros to display properly in LW 4.1.

Date: Fri Mar 26 08:24:48 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.153 slime/swank.lisp:1.154
--- slime/swank.lisp:1.153	Tue Mar 23 16:23:09 2004
+++ slime/swank.lisp	Fri Mar 26 08:24:48 2004
@@ -791,6 +791,7 @@
          (let ((arg (pop arglist)))
            (etypecase arg
              (symbol (princ arg))
+             (string (princ arg))
              (cons (pprint-logical-block (nil nil :prefix "(" :suffix ")")
                      (princ (car arg))
                      (write-char #\space)