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

[Helmut Eller]

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

Modified Files:
	slime.el 
Log Message:
(slime-batch-test): Use sit-for instead of accept-process-output, so
that we see something when swank gets compiled.  May be problematic in
real batch mode.

(loop-interrupt-continue-interrupt-quit): Wait a second before
interrupting.  The signal seems to arrive before the evaluation
request if don't wait => the endless loop is executed inside the
debugger and sldb-quit will not be processed with fd-handlers.

Date: Sat Feb 21 11:34:05 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.213 slime/slime.el:1.214
--- slime/slime.el:1.213	Sat Feb 21 02:32:52 2004
+++ slime/slime.el	Sat Feb 21 11:34:05 2004
@@ -1550,8 +1550,8 @@
   "Block until the most recent request has finished."
   (when slime-rex-continuations
     (let ((tag (caar slime-rex-continuations)))
-      (loop while (find tag slime-rex-continuations :key #'car)
-            do (accept-process-output nil 0 100000)))))
+      (while (find tag slime-rex-continuations :key #'car)
+        (accept-process-output nil 0 100000)))))
 
 (defun slime-ping ()
   "Check that communication works."
@@ -4983,7 +4983,7 @@
     (slime)
     ;; Block until we are up and running.
     (while (not (slime-connected-p))
-      (accept-process-output nil 2))
+      (sit-for 1))
     (slime-sync-to-top-level 5)
     (switch-to-buffer "*scratch*")
     (let ((failed-tests (slime-run-tests)))
@@ -5289,6 +5289,7 @@
     '(())
   (slime-check-top-level)
   (slime-eval-async '(cl:loop) "CL-USER" (lambda (_) ))
+  (sleep-for 1)
   (slime-wait-condition "running" #'slime-busy-p 5)
   (slime-interrupt)
   (slime-wait-condition "First interrupt" (lambda () (slime-sldb-level= 1)) 5)