[slime-cvs] CVS slime

[mkoeppe]

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

Modified Files:
	slime.el 
Log Message:
(slime-parse-extended-operator-name/apply): New.
(slime-extended-operator-name-parser-alist): Add it to the alist.


--- /project/slime/cvsroot/slime/slime.el	2006/08/14 20:24:40	1.639
+++ /project/slime/cvsroot/slime/slime.el	2006/08/19 15:39:26	1.640
@@ -10154,7 +10154,8 @@
     ("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)))
+    ("DEFMETHOD" . slime-parse-extended-operator-name/defmethod)
+    ("APPLY" . slime-parse-extended-operator-name/apply)))
 
 (defun slime-parse-extended-operator-name/make-instance (name)
   (let ((str (slime-sexp-at-point)))
@@ -10163,6 +10164,13 @@
                        name))))
   name)
 
+(defun slime-parse-extended-operator-name/apply (name)
+  (let ((str (slime-sexp-at-point)))
+    (when (string-match "^#?'\\(.*\\)" str)
+      (setq name (list :make-instance (match-string 1 str)
+                       name))))
+  name)
+
 (defun slime-parse-extended-operator-name/cerror (name)
   (let ((continue-string-sexp (slime-sexp-at-point))
         (class-sexp  (progn (forward-sexp) (forward-char 1) (slime-sexp-at-point))))