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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
interactive-eval: Test case independent of *print-case*.
Date: Mon Oct 20 13:11:50 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.47 slime/slime.el:1.48
--- slime/slime.el:1.47	Mon Oct 20 09:56:36 2003
+++ slime/slime.el	Mon Oct 20 13:11:50 2003
@@ -1130,9 +1130,7 @@
 
 (defun slime-compile-string (string start-offset)
   (slime-eval-async 
-   `(swank:swank-compile-string ,string
-				,(buffer-name)
-                                ,start-offset)
+   `(swank:swank-compile-string ,string ,(buffer-name) ,start-offset)
    (slime-buffer-package)
    (slime-compilation-finished-continuation)))
 
@@ -3131,13 +3129,13 @@
    '(())
   (let ((sldb-hook (lambda () (sldb-continue))))
     (slime-interactive-eval 
-     "(progn (cerror \"foo\" \"restart\") (cerror \"bar\" \"restart\") t)")
+     "(progn(cerror \"foo\" \"restart\")(cerror \"bar\" \"restart\")(+ 1 2))")
     (slime-sync-state-stack '(slime-idle-state) 5)
     (slime-check "Automaton is back in idle state."
       (slime-test-state-stack '(slime-idle-state)))
     (let ((message (current-message)))
-      (slime-check "Minibuffer contains: \"=> t\""
-        (equal "=> t" message)))))
+      (slime-check "Minibuffer contains: \"=> 3\""
+        (equal "=> 3" message)))))
 
 
 ;;; Portability library