[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	swank.lisp 
Log Message:
(operator-designator-to-form): Handle cerror and change-class with
:make-instance.


--- /project/slime/cvsroot/slime/swank.lisp	2006/06/16 16:34:14	1.381
+++ /project/slime/cvsroot/slime/swank.lisp	2006/06/17 15:03:58	1.382
@@ -1408,13 +1408,10 @@
   (etypecase name
     (cons
      (destructure-case name
-       ((:make-instance class-name operator-name)
+       ((:make-instance class-name operator-name &rest args)
         (let ((parsed-operator-name (parse-symbol operator-name)))
-          (values `(,parsed-operator-name ',(parse-symbol class-name))
+          (values `(,parsed-operator-name , at args ',(parse-symbol class-name))
                   operator-name)))
-       ((:cerror continue-string class-name)
-        (values `(cerror ,continue-string ',(parse-symbol class-name))
-                'cerror))
        ((:defmethod generic-name)
         (values `(defmethod ,(parse-symbol generic-name))
                 'defmethod))))