/[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.203 by heller, Mon Aug 4 20:25:38 2008 UTC revision 1.204 by heller, Mon Aug 4 21:38:07 2008 UTC
# Line 1311  stack." Line 1311  stack."
1311    ;; Auto-flush streams    ;; Auto-flush streams
1312    
1313    (defvar *auto-flush-interval* 0.15    (defvar *auto-flush-interval* 0.15
1314      "How often to flush interactive streams. This valu is passed      "How often to flush interactive streams. This value is passed
1315      directly to cl:sleep.")      directly to cl:sleep.")
1316    
1317    (defvar *auto-flush-lock* (make-recursive-lock :name "auto flush"))    (defvar *auto-flush-lock* (make-recursive-lock :name "auto flush"))
# 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"))))))
     (when (typep stream 'slime-output-stream)  
       (setf (slot-value stream 'interactive-p) t)))  
1332    
1333    (defun flush-streams ()    (defun flush-streams ()
1334      (loop      (loop

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

  ViewVC Help
Powered by ViewVC 1.1.5