[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-parse.el ChangeLog 
Log Message:
	* slime-parse.el (slime-parse-form-until): Properly deal with #'
	prefix.
	(form-up-to-point.1 [test]): Extend.


--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/12/23 08:55:40	1.33
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/12/29 12:48:31	1.34
@@ -31,7 +31,7 @@
          (decf depth)
          (push (nreverse cursexp) (car sexps)))
         ;; Start of a new sexp?
-        ((looking-at "\\s'?\\s(")
+        ((looking-at "\\s'*\\s(")
          (let ((subpt (match-end 0)))
            (ignore-errors
              (forward-sexp)
@@ -117,21 +117,24 @@
 (def-slime-test form-up-to-point.1
     (buffer-sexpr result-form &optional skip-trailing-test-p)
     ""
-    '(("(char= #\\(*HERE*"            ("char=" "#\\(" swank::%cursor-marker%))
-      ("(char= #\\( *HERE*"           ("char=" "#\\(" "" swank::%cursor-marker%))
-      ("(char= #\\) *HERE*"           ("char=" "#\\)" "" swank::%cursor-marker%))
-      ("(char= #\\*HERE*"             ("char=" "#\\" swank::%cursor-marker%) t)
-      ("(defun*HERE*"                 ("defun" swank::%cursor-marker%))
-      ("(defun foo*HERE*"             ("defun" "foo" swank::%cursor-marker%))
-      ("(defun foo (x y)*HERE*"       ("defun" "foo" ("x" "y") swank::%cursor-marker%))
-      ("(defun foo (x y*HERE*"        ("defun" "foo" ("x" "y" swank::%cursor-marker%)))
-      ("(apply 'foo*HERE*"            ("apply" "'foo" swank::%cursor-marker%))
-      ("(apply #'foo*HERE*"           ("apply" "#'foo" swank::%cursor-marker%))
-      ("(declare ((vector bit *HERE*" ("declare" (("vector" "bit" "" swank::%cursor-marker%))))
-      ("(with-open-file (*HERE*"      ("with-open-file" ("" swank::%cursor-marker%)))
-      ("(((*HERE*"                    ((("" swank::%cursor-marker%))))
-      ("(defun #| foo #| *HERE*"      ("defun" "" swank::%cursor-marker%))
-      ("(defun #-(and) (bar) f*HERE*" ("defun" "f" swank::%cursor-marker%)))
+    '(("(char= #\\(*HERE*"               ("char=" "#\\(" swank::%cursor-marker%))
+      ("(char= #\\( *HERE*"              ("char=" "#\\(" "" swank::%cursor-marker%))
+      ("(char= #\\) *HERE*"              ("char=" "#\\)" "" swank::%cursor-marker%))
+      ("(char= #\\*HERE*"                ("char=" "#\\" swank::%cursor-marker%) t)
+      ("(defun*HERE*"                    ("defun" swank::%cursor-marker%))
+      ("(defun foo*HERE*"                ("defun" "foo" swank::%cursor-marker%))
+      ("(defun foo (x y)*HERE*"          ("defun" "foo" ("x" "y") swank::%cursor-marker%))
+      ("(defun foo (x y*HERE*"           ("defun" "foo" ("x" "y" swank::%cursor-marker%)))
+      ("(apply 'foo*HERE*"               ("apply" "'foo" swank::%cursor-marker%))
+      ("(apply #'foo*HERE*"              ("apply" "#'foo" swank::%cursor-marker%))
+      ("(declare ((vector bit *HERE*"    ("declare" (("vector" "bit" "" swank::%cursor-marker%))))
+      ("(with-open-file (*HERE*"         ("with-open-file" ("" swank::%cursor-marker%)))
+      ("(((*HERE*"                       ((("" swank::%cursor-marker%))))
+      ("(defun #| foo #| *HERE*"         ("defun" "" swank::%cursor-marker%))
+      ("(defun #-(and) (bar) f*HERE*"    ("defun" "f" swank::%cursor-marker%))
+      ("(remove-if #'(lambda (x)*HERE*"  ("remove-if" ("lambda" ("x") swank::%cursor-marker%)))
+      ("`(remove-if ,(lambda (x)*HERE*"  ("remove-if" ("lambda" ("x") swank::%cursor-marker%)))
+      ("`(remove-if ,@(lambda (x)*HERE*" ("remove-if" ("lambda" ("x") swank::%cursor-marker%))))
   (slime-check-top-level)
   (with-temp-buffer
     (lisp-mode)
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/25 11:04:00	1.319
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/29 12:48:31	1.320
@@ -1,3 +1,9 @@
+2009-12-29  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-parse.el (slime-parse-form-until): Properly deal with #'
+	prefix.
+	(form-up-to-point.1 [test]): Extend.
+
 2009-12-25  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-arglists.lisp (delete-given-args): Make sure to properly