[slime-cvs] CVS slime

[heller]

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

Modified Files:
	swank.lisp 
Log Message:
(reader-from-emacs): Use &rest in destructure-case for CCL's sake.


--- /project/slime/cvsroot/slime/swank.lisp	2008/08/03 18:23:10	1.549
+++ /project/slime/cvsroot/slime/swank.lisp	2008/08/03 19:20:51	1.550
@@ -1347,7 +1347,7 @@
           (with-thread-description (truncate-string (request-to-string request) 55)
             (apply #'funcall request))
           (destructure-case request
-            ((:call . args) (apply #'funcall args))
+            ((:call &rest args) (apply #'funcall args))
             (t (setf *event-queue* 
                      (nconc *event-queue* (list request)))))))))