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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
Fix test-suite for SBCL.
Date: Tue Nov  4 03:02:22 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.76 slime/slime.el:1.77
--- slime/slime.el:1.76	Mon Nov  3 19:03:48 2003
+++ slime/slime.el	Tue Nov  4 03:02:22 2003
@@ -2039,7 +2039,11 @@
   (cond ((find last-command-char "()\"'`,# \r\n:")
          (slime-complete-restore-window-configuration)
          (slime-complete-forget-window-configuration))
-        ((eq this-command 'self-insert-command)
+        ((memq this-command '(self-insert-command
+                              slime-complete-symbol
+                              backward-delete-char-untabify
+                              backward-delete-char
+                              scroll-other-window))
          ;; keep going
          )
         (t (slime-complete-forget-window-configuration))))
@@ -3545,7 +3549,7 @@
     "Lookup the argument list for FUNCTION-NAME.
 Confirm that EXPECTED-ARGLIST is displayed."
     '(("swank:start-server"
-       "(swank:start-server &optional (port server-port))")
+       "(swank:start-server port-file-namestring)")
       ("swank::string-prefix-p"
        "(swank::string-prefix-p s1 s2)"))
   (let ((arglist (slime-get-arglist function-name))) ;
@@ -3640,7 +3644,7 @@
    '(())
    (slime-check "Automaton initially in idle state."
      (slime-test-state-stack '(slime-idle-state)))
-   (slime-eval-async '(loop) "CL-USER" (lambda (_) ))
+   (slime-eval-async '(cl:loop) "CL-USER" (lambda (_) ))
    (let ((sldb-hook
           (lambda ()
             (slime-check "First interrupt."
@@ -3662,7 +3666,7 @@
    '(())
    (slime-check "Automaton initially in idle state."
      (slime-test-state-stack '(slime-idle-state)))
-   (slime-eval-async '(loop) "CL-USER" (lambda (_) ))
+   (slime-eval-async '(cl:loop) "CL-USER" (lambda (_) ))
    (let ((sldb-hook
           (lambda ()
             (slime-check "First interrupt."