[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el ([test] find-definition.2, [test] compile-defun):
Expect to fail for CCL.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/31 14:19:35	1.1578
+++ /project/slime/cvsroot/slime/ChangeLog	2008/11/02 12:05:03	1.1579
@@ -1,3 +1,8 @@
+2008-11-02  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el ([test] find-definition.2, [test] compile-defun):
+	Expect to fail for CCL.
+
 2008-10-31  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-repl-history-pattern): Simplify as suggested by
--- /project/slime/cvsroot/slime/slime.el	2008/10/31 14:19:35	1.1058
+++ /project/slime/cvsroot/slime/slime.el	2008/11/02 12:05:03	1.1059
@@ -8851,7 +8851,7 @@
            (= orig-pos (point)))))
     (slime-check-top-level))
 
-(def-slime-test find-definition.2
+(def-slime-test (find-definition.2 ("ccl" "allegro"))
     (buffer-content buffer-package snippet)
     "Check that we're able to find definitions even when
 confronted with nasty #.-fu."
@@ -8915,7 +8915,7 @@
       ("swank::compile-string-for-emacs"
        "(swank::compile-string-for-emacs string buffer position directory debug)")
       ("swank::connection.socket-io"
-       "(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\))")
+       "(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\|x\\))")
       ("cl:lisp-implementation-type" "(cl:lisp-implementation-type )")
       ("cl:class-name" 
        "(cl:class-name \\(class\\|object\\|instance\\|structure\\))"))
@@ -8927,7 +8927,7 @@
                        #'string-match))
   (slime-check-top-level))
 
-(def-slime-test (compile-defun ("allegro" "lispworks" "clisp"))
+(def-slime-test (compile-defun ("allegro" "lispworks" "clisp" "ccl"))
     (program subform)
     "Compile PROGRAM containing errors.
 Confirm that SUBFORM is correctly located."