Commit f2e9a337 authored by Helmut Eller's avatar Helmut Eller

* swank-sbcl.lisp (stream-force-output): Undo last few changes.

parent cf5fdc40
2012-05-12 Helmut Eller <heller@common-lisp.net>
* swank-sbcl.lisp (stream-force-output): Undo last few changes.
2012-05-11 Helmut Eller <heller@common-lisp.net>
* swank-sbcl.lisp (stream-force-output): Use with-world-lock
......
......@@ -1627,12 +1627,7 @@ stack."
(defun condition-timed-wait (waitqueue mutex timeout)
(macrolet ((foo ()
(cond ((> (length (sb-introspect:function-lambda-list
#'sb-thread:condition-wait))
2)
'(sb-thread:condition-wait waitqueue mutex
:timeout timeout))
((member :sb-lutex *features*) ; Darwin
(cond ((member :sb-lutex *features*) ; Darwin
'(sb-thread:condition-wait waitqueue mutex))
(t
'(handler-case
......@@ -1693,8 +1688,11 @@ stack."
(defclass slime-output-stream (fundamental-character-output-stream)
())
(defmethod stream-force-output :around ((stream slime-output-stream))
(sb-kernel:with-world-lock ()
(call-next-method)))
(handler-case
(sb-sys:with-deadline (:seconds 0.1)
(call-next-method))
(sb-sys:deadline-timeout ()
nil)))
)
(defimplementation quit-lisp ()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment