/[slime]/slime/swank-sbcl.lisp
ViewVC logotype

Diff of /slime/swank-sbcl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.214 by heller, Tue Aug 12 17:54:44 2008 UTC revision 1.215 by heller, Sun Aug 17 08:31:22 2008 UTC
# Line 1324  stack." Line 1324  stack."
1324                           (sb-thread:condition-wait (mailbox.waitqueue mbox)                           (sb-thread:condition-wait (mailbox.waitqueue mbox)
1325                                                     mutex))                                                     mutex))
1326             (sb-ext:timeout ()))))))             (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*)))))  
   
1327    )    )
1328    
1329  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()

Legend:
Removed from v.1.214  
changed lines
  Added in v.1.215

  ViewVC Help
Powered by ViewVC 1.1.5