[slime-cvs] CVS slime

[heller]

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 ()