[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv17111

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (receive-if): Bind *break-on-signals* to
nil before using with-timeout.

--- /project/slime/cvsroot/slime/ChangeLog	2009/09/23 11:19:55	1.1863
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/23 11:20:02	1.1864
@@ -1,3 +1,8 @@
+2009-09-23  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-sbcl.lisp (receive-if): Bind *break-on-signals* to
+	nil before using with-timeout.
+
 2009-09-22  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-ccl.lisp (find-definitions): For fbound symbols also
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/08/11 09:15:03	1.249
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/09/23 11:20:02	1.250
@@ -1488,9 +1488,11 @@
          (when (eq timeout t) (return (values nil t)))
          ;; FIXME: with-timeout doesn't work properly on Darwin
          #+linux
-         (handler-case (sb-ext:with-timeout 0.2
-                         (sb-thread:condition-wait (mailbox.waitqueue mbox)
-                                                   mutex))
+         (handler-case 
+             (let ((*break-on-signals* nil))
+               (sb-ext:with-timeout 0.2
+                 (sb-thread:condition-wait (mailbox.waitqueue mbox)
+                                           mutex)))
            (sb-ext:timeout ()))
          #-linux  
          (sb-thread:condition-wait (mailbox.waitqueue mbox)