[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-arglists.lisp 
Log Message:
* swank-lispworks.lisp (replace-strings-with-symbols): New function for
recursively interning and replacing strings in a list.
(arglist): Replace all strings in arglists with symbols.

* contrib/swank-arglists.lisp (decode-required-arg): Move LispWorks specific
code into swank-lispworks.lisp.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/01 12:56:23	1.240
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/09/02 17:21:16	1.241
@@ -1,3 +1,8 @@
+2009-09-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-arglists.lisp (decode-required-arg): Move LispWorks specific
+	code into swank-lispworks.lisp.
+
 2009-09-01  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (decode-required-arg): Arglists for some forms
--- /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/09/01 12:56:23	1.33
+++ /project/slime/cvsroot/slime/contrib/swank-arglists.lisp	2009/09/02 17:21:16	1.34
@@ -502,10 +502,7 @@
   "ARG can be a symbol or a destructuring pattern."
   (etypecase arg
     (symbol arg)
-    (list   (decode-arglist arg))
-    ;; Arglists for some forms in LispWorks, e.g. flet, contain strings.
-    #+lispworks
-    (string arg)))
+    (list   (decode-arglist arg))))
 
 (defun encode-required-arg (arg)
   (etypecase arg