[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv4156

Modified Files:
	swank.lisp 
Log Message:
(extra-keywords change-class): Don't drop the first argument.


--- /project/slime/cvsroot/slime/swank.lisp	2006/06/18 17:53:23	1.384
+++ /project/slime/cvsroot/slime/swank.lisp	2006/06/18 18:21:54	1.385
@@ -1910,8 +1910,12 @@
 
 (defmethod extra-keywords ((operator (eql 'change-class)) 
                            &rest args)
-  (multiple-value-or (apply #'extra-keywords/change-class operator (cdr args))
-                     (call-next-method)))
+  (multiple-value-bind (keywords aok determiners)
+      (apply #'extra-keywords/change-class operator (cdr args))
+    (if keywords
+        (values keywords aok
+                (cons (car args) determiners))
+        (call-next-method))))
 
 (defun enrich-decoded-arglist-with-extra-keywords (decoded-arglist form)
   "Determine extra keywords from the function call FORM, and modify