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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-eval-with-transcript): Fix bug triggered when 'package' is a
buffer local variable.  Reported by Janis Dzerins.

(slime-batch-test): Wait until the connection is ready.
Date: Sun Jan 18 16:52:59 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.186 slime/slime.el:1.187
--- slime/slime.el:1.186	Sun Jan 18 15:04:20 2004
+++ slime/slime.el	Sun Jan 18 16:52:59 2004
@@ -3275,15 +3275,14 @@
 
 (defun slime-eval-with-transcript (form package &optional fn)
   (with-current-buffer (slime-output-buffer)
-    (slime-with-output-end-mark
-     (slime-mark-output-start))
-    (with-lexical-bindings (fn)
-      (slime-eval-async form package 
-                        (lambda (value)
-                          (with-current-buffer (slime-output-buffer)
-                            (cond (fn (funcall fn value))
-                                  (t (message "=> %s" value)))
-                            (slime-show-last-output)))))))
+    (slime-with-output-end-mark (slime-mark-output-start)))
+  (with-lexical-bindings (fn)
+    (slime-eval-async form package 
+                      (lambda (value)
+                        (with-current-buffer (slime-output-buffer)
+                          (cond (fn (funcall fn value))
+                                (t (message "=> %s" value)))
+                          (slime-show-last-output))))))
 
 (defun slime-eval-describe (form)
   (lexical-let ((package (slime-buffer-package)))
@@ -4715,6 +4714,8 @@
         (slime-test-debug-on-error nil))
     (slime)
     ;; Block until we are up and running.
+    (while (not (slime-connected-p))
+      (accept-process-output nil 2))
     (slime-sync-state-stack '(slime-idle-state) 120)
     (switch-to-buffer "*scratch*")
     (let ((failed-tests (slime-run-tests)))