[slime-devel] [PATCH] arglist printing in LW 4.1

[Bjørn Nordbø]

This fixes arglist printing in Lispworks 4.1, and otherwise it
should be harmless.  I also added a comment in ChaneLog.  Is
this correct?

-- 
Lisp can accomodate a wide range of psychological problems.
-------------- next part --------------
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 at 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 at 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)