[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

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

Modified Files:
	slime-parse.el ChangeLog 
Log Message:
	* slime-parse.el ([test] enclosing-form-specs.1): Fix test case.


--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/02/01 23:57:35	1.14
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/02/02 15:29:33	1.15
@@ -354,14 +354,15 @@
 (def-slime-test enclosing-form-specs.1
     (buffer-sexpr wished-form-specs)
     ""
-    '(("(defmethod *HERE*)" ("defmethod"))
-      ("(cerror foo *HERE*)" ("cerror" "foo")))
+    '(("(defmethod *HERE*)" (("defmethod")))
+      ("(cerror foo *HERE*)" (("cerror" "foo"))))
   (slime-check-top-level)
   (with-temp-buffer
     (let ((tmpbuf (current-buffer)))
       (lisp-mode)
       (insert buffer-sexpr)
       (search-backward "*HERE*")
+      (delete-region (match-beginning 0) (match-end 0))
       (multiple-value-bind (specs) 
 	  (slime-enclosing-form-specs)
 	(slime-check "Check enclosing form specs"
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/01 23:57:35	1.171
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/02/02 15:29:33	1.172
@@ -1,3 +1,7 @@
+2009-02-02  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-parse.el ([test] enclosing-form-specs.1): Fix test case.
+
 2009-02-01  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	Add DEFMETHOD-style extended arglist display for