/[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.210 by heller, Fri Aug 8 13:43:33 2008 UTC revision 1.211 by heller, Sat Aug 9 19:57:00 2008 UTC
# Line 1319  stack." Line 1319  stack."
1319                                                     mutex))                                                     mutex))
1320             (sb-ext:timeout ()))))))             (sb-ext:timeout ()))))))
1321    
1322      #-non-broken-terminal-sessions
1323      (progn
1324        (defvar *native-wait-for-terminal* #'sb-thread::get-foreground)
1325        (sb-ext:with-unlocked-packages (sb-thread)
1326          (defun sb-thread::get-foreground ()
1327            (ignore-errors
1328              (format *debug-io* ";; SWANK: sb-thread::get-foreground ...~%")
1329              (finish-output *debug-io*))
1330            (or (and (typep *debug-io* 'two-way-stream)
1331                     (typep (two-way-stream-input-stream *debug-io*)
1332                            'slime-input-stream))
1333                (funcall *native-wait-for-terminal*)))))
1334    
1335    )    )
1336    
1337  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()

Legend:
Removed from v.1.210  
changed lines
  Added in v.1.211

  ViewVC Help
Powered by ViewVC 1.1.5