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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
*** empty log message ***
Date: Mon Mar  7 09:46:57 2005
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.284 slime/swank.lisp:1.285
--- slime/swank.lisp:1.284	Sun Mar  6 22:43:33 2005
+++ slime/swank.lisp	Mon Mar  7 09:46:55 2005
@@ -1288,12 +1288,12 @@
 
 (progn
   (assert (equalp (decode-keyword-arg 'x) 
-                  (make-keyword-arg :x 'x nil))
+                  (make-keyword-arg :x 'x nil)))
   (assert (equalp (decode-keyword-arg '(x t)) 
-                  (make-keyword-arg :x 'x t))))
-  (assert (equalp (decode-keyword-arg '((:x y)))   
+                  (make-keyword-arg :x 'x t)))
+  (assert (equalp (decode-keyword-arg '((:x y)))
                   (make-keyword-arg :x 'y nil)))
-  (assert (equalp (decode-keyword-arg '((:x y) t)) 
+  (assert (equalp (decode-keyword-arg '((:x y) t))
                   (make-keyword-arg :x 'y t))))
 
 (defstruct (optional-arg