[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3709

Modified Files:
	slime.el 
Log Message:
(slime-expected-failures): Delete unused function.

(complete-symbol): Test completion of swank::compile-file. LispWorks
has extra completions for cl::compile-file.

(arglist): Test arglist of method cl:class-name.  Add enough regexpery
to pass the test in most implementations. 

Date: Wed Jul 28 14:13:58 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.380 slime/slime.el:1.381
--- slime/slime.el:1.380	Wed Jul 28 10:20:31 2004
+++ slime/slime.el	Wed Jul 28 14:13:58 2004
@@ -6756,23 +6756,12 @@
 (defvar slime-failed-tests nil
   "Total number of failed tests during a test run.")
 
+(defvar slime-expected-failures nil
+  "Total number of expected failures during a test run")
+
 (defvar slime-test-buffer-name "*Tests*"
   "The name of the buffer used to display test results.")
 
-(defvar slime-expected-failures
-  '(("cmucl" 0)
-    ("sbcl" 2)
-    ("clisp" 13)
-    ("lispworks" 7)
-    ("allegro" 6))
-  "The number of expected failed tests for each implementation.")
-
-(defun slime-expected-failures ()
-  "Return the numbers of expected failure for the current implementation."
-  (or (cadr (assoc (slime-lisp-implementation-type-name)
-                   slime-expected-failures))
-      0))
-
 
 ;;;;; Execution engine
 
@@ -7050,8 +7039,11 @@
                       "cl:compiler-macro-function")
                      "cl:compile"))
       ("cl:foobar" (nil ""))
-      ("cl::compile-file" (("cl::compile-file" "cl::compile-file-pathname")
-                           "cl::compile-file"))
+      ("swank::compile-file" (("swank::compile-file" 
+                               "swank::compile-file-for-emacs"
+                               "swank::compile-file-if-needed"
+                               "swank::compile-file-pathname")
+                              "swank::compile-file"))
       ("cl:m-v-l" (("cl:multiple-value-list" "cl:multiple-values-limit")
                    "cl:multiple-value-li")))
   (let ((completions (slime-completions prefix)))
@@ -7067,7 +7059,7 @@
     "Lookup the argument list for FUNCTION-NAME.
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank:start-server"
-       "(swank:start-server port-file &optional \\((style *communication-style*)\\|style\\) dont-close)")
+       "(swank:start-server port-file &optional \\((style \\*communication-style\\*)\\|style\\)[ \n]+dont-close)")
       ("swank::compound-prefix-match"
        "(swank::compound-prefix-match prefix target)")
       ("swank::create-socket"
@@ -7080,10 +7072,8 @@
        "(swank::connection.socket-io \\(struct\\(ure\\)?\\|object\\|instance\\))")
       ("cl:lisp-implementation-type"
        "(cl:lisp-implementation-type)")
-      )
-;;    Different arglists found in the wild.
-;;      ("cl:class-name"
-;;       "(cl:class-name structure)"))
+      ("cl:class-name" 
+       "(cl:class-name \\(class\\|object\\|instance\\|structure\\))"))
   (slime-check-top-level)
   (let ((arglist (slime-get-arglist function-name))) ;
     (slime-test-expect "Argument list is as expected"