/[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.202 by heller, Sun Aug 3 18:23:10 2008 UTC revision 1.203 by heller, Mon Aug 4 20:25:38 2008 UTC
# Line 1328  stack." Line 1328  stack."
1328         (unless *auto-flush-thread*         (unless *auto-flush-thread*
1329           (setq *auto-flush-thread*           (setq *auto-flush-thread*
1330                 (sb-thread:make-thread #'flush-streams                 (sb-thread:make-thread #'flush-streams
1331                                        :name "auto-flush-thread"))))))                                        :name "auto-flush-thread")))))
1332        (when (typep stream 'slime-output-stream)
1333          (setf (slot-value stream 'interactive-p) t)))
1334    
1335    (defun flush-streams ()    (defun flush-streams ()
1336      (loop      (loop

Legend:
Removed from v.1.202  
changed lines
  Added in v.1.203

  ViewVC Help
Powered by ViewVC 1.1.5