Index: ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/ChangeLog,v
retrieving revision 1.309
diff -u -r1.309 ChangeLog
--- ChangeLog	26 Mar 2004 09:21:05 -0000	1.309
+++ ChangeLog	26 Mar 2004 10:32:41 -0000
@@ -1,3 +1,9 @@
+2004-03-26  Bjørn Nordbø <bn@telenor.net>
+
+	* swank.lisp (print-arglist): Updated to handle arglists with
+	string elements, causing arglists for macros to display properly
+	in LW 4.1.
+
 2004-03-26  Marco Baringer <mb@bese.it>
 
 	* swank-cmucl.lisp (set-default-directory): Define only once;
Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.153
diff -u -r1.153 swank.lisp
--- swank.lisp	23 Mar 2004 21:23:09 -0000	1.153
+++ swank.lisp	26 Mar 2004 10:32:41 -0000
@@ -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)