[slime-cvs] CVS slime
heller
heller at common-lisp.net
Sun Aug 17 08:31:22 UTC 2008
Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv28472
Modified Files:
ChangeLog swank-sbcl.lisp
Log Message:
* swank-sbcl.lisp (sb-thread::get-foreground): Don't override.
Let SBCL people fix this.
--- /project/slime/cvsroot/slime/ChangeLog 2008/08/17 08:31:14 1.1457
+++ /project/slime/cvsroot/slime/ChangeLog 2008/08/17 08:31:22 1.1458
@@ -1,4 +1,9 @@
-2008-08-15 B.Scott Michel <scooter.phd at gmail.com>
+2008-08-17 Helmut Eller <heller at common-lisp.net>
+
+ * swank-sbcl.lisp (sb-thread::get-foreground): Don't override.
+ Let SBCL people fix this.
+
+2008-08-17 B.Scott Michel <scooter.phd at gmail.com>
* swank-loader.lisp (dump-image): Move this function to the end of
the file to stop SBCL from reporting two times the same false
--- /project/slime/cvsroot/slime/swank-sbcl.lisp 2008/08/12 17:54:44 1.214
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp 2008/08/17 08:31:22 1.215
@@ -1324,20 +1324,6 @@
(sb-thread:condition-wait (mailbox.waitqueue mbox)
mutex))
(sb-ext:timeout ()))))))
-
- #-non-broken-terminal-sessions
- (progn
- (defvar *native-wait-for-terminal* #'sb-thread::get-foreground)
- (sb-ext:with-unlocked-packages (sb-thread)
- (defun sb-thread::get-foreground ()
- (ignore-errors
- (format *debug-io* ";; SWANK: sb-thread::get-foreground ...~%")
- (finish-output *debug-io*))
- (or (and (typep *debug-io* 'two-way-stream)
- (typep (two-way-stream-input-stream *debug-io*)
- 'slime-input-stream))
- (funcall *native-wait-for-terminal*)))))
-
)
(defimplementation quit-lisp ()
More information about the slime-cvs
mailing list