[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-parse-extended-operator-name/cerror): Handle cerror and
change-class with :make-instance.
(slime-extended-operator-name-parser-alist): Handle change-class.


--- /project/slime/cvsroot/slime/slime.el	2006/06/16 16:33:01	1.627
+++ /project/slime/cvsroot/slime/slime.el	2006/06/17 15:07:09	1.628
@@ -10096,6 +10096,7 @@
     ("SIGNAL" . slime-parse-extended-operator-name/make-instance)
     ("WARN" . slime-parse-extended-operator-name/make-instance)
     ("CERROR" . slime-parse-extended-operator-name/cerror)
+    ("CHANGE-CLASS" . slime-parse-extended-operator-name/cerror)
     ("DEFMETHOD" . slime-parse-extended-operator-name/defmethod)))
 
 (defun slime-parse-extended-operator-name/make-instance (name)
@@ -10109,9 +10110,9 @@
   (let ((continue-string-sexp (slime-sexp-at-point))
         (class-sexp  (progn (forward-sexp) (forward-char 1) (slime-sexp-at-point))))
     (when (= (aref class-sexp 0) ?')
-      (setq name (list :cerror 
-                       continue-string-sexp
-                       (substring class-sexp 1)))))
+      (setq name (list :make-instance (substring class-sexp 1)
+                       name
+                       continue-string-sexp))))
   name)
 
 (defun slime-parse-extended-operator-name/defmethod (name)