[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv18977/contrib

Modified Files:
	ChangeLog slime-parse.el 
Log Message:
	* slime-parse.el (slime-parse-extended-operator/proclaim): New.
	(slime-extended-oprator-name-parser-alist): Adapt tbe entry for
	PROCLAIM.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/04/21 13:03:41	1.200
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/04/29 23:26:36	1.201
@@ -1,3 +1,9 @@
+2009-04-30  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-parse.el (slime-parse-extended-operator/proclaim): New.
+	(slime-extended-oprator-name-parser-alist): Adapt tbe entry for
+	PROCLAIM.
+
 2009-04-21  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-indentantion-fu.el (slime-update-local-indentation): Save
--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/02/27 21:35:35	1.19
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/04/29 23:26:36	1.20
@@ -107,7 +107,7 @@
     ("APPLY"          . (slime-make-extended-operator-parser/look-ahead 1))
     ("DECLARE"        . slime-parse-extended-operator/declare)
     ("DECLAIM"        . slime-parse-extended-operator/declare)
-    ("PROCLAIM"       . slime-parse-extended-operator/declare)))
+    ("PROCLAIM"       . slime-parse-extended-operator/proclaim)))
 
 (defun slime-make-extended-operator-parser/look-ahead (steps)
   "Returns a parser that parses the current operator at point
@@ -128,14 +128,21 @@
           (values current-forms current-indices current-points)
           ))))
 
+;;; FIXME: We display "(proclaim (optimize ...))" instead of the
+;;; correct "(proclaim '(optimize ...))".
+(defun slime-parse-extended-operator/proclaim (&rest args)
+  (when (looking-at "['`]")
+    (forward-char)
+    (apply #'slime-parse-extended-operator/declare args)))
+
 (defun slime-parse-extended-operator/declare
     (name user-point current-forms current-indices current-points)
-  (when (string= (thing-at-point 'char) "(")
+  (when (looking-at "(")
     (let ((orig-point (point)))
       (goto-char user-point)
       (slime-end-of-symbol)
-      ;; Head of CURRENT-FORMS is "declare" at this point, but we're
-      ;; interested in what comes next.
+      ;; Head of CURRENT-FORMS is "declare" (or similiar) at this
+      ;; point, but we're interested in what comes next.
       (let* ((decl-ops     (rest current-forms))
              (decl-indices (rest current-indices))
              (decl-points  (rest current-points))