[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv22214/contrib

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-arglists.lisp (decode-required-arg): Arglists for some forms
in LispWorks, e.g. flet, contain strings, so handle strings too.
Reported by Nick Levine.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/28 23:50:48	1.239
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/01 12:56:23	1.240
@@ -1,3 +1,9 @@
+2009-09-01  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (decode-required-arg): Arglists for some forms
+	in LispWorks, e.g. flet, contain strings, so handle strings too.
+	Reported by Nick Levine.
+
 2009-08-28  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-c-p-c.el (slime-contextual-completions): Remove debugging code.
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/05/20 19:25:58	1.32
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/09/01 12:56:23	1.33
@@ -502,7 +502,10 @@
   "ARG can be a symbol or a destructuring pattern."
   (etypecase arg
     (symbol arg)
-    (list   (decode-arglist arg))))
+    (list   (decode-arglist arg))
+    ;; Arglists for some forms in LispWorks, e.g. flet, contain strings.
+    #+lispworks
+    (string arg)))
 
 (defun encode-required-arg (arg)
   (etypecase arg