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

Diff of /slime/swank-abcl.lisp

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

revision 1.49 by heller, Thu Apr 17 14:56:43 2008 UTC revision 1.50 by heller, Fri Aug 8 13:43:33 2008 UTC
# Line 524  part of *sysdep-pathnames* in swank.load Line 524  part of *sysdep-pathnames* in swank.load
524  (defimplementation receive ()  (defimplementation receive ()
525    (ext:mailbox-read (mailbox (ext:current-thread))))    (ext:mailbox-read (mailbox (ext:current-thread))))
526    
 ;;; Auto-flush streams  
   
 ;; XXX race conditions  
 (defvar *auto-flush-streams* '())  
   
 (defvar *auto-flush-thread* nil)  
   
 (defimplementation make-stream-interactive (stream)  
   (setq *auto-flush-streams* (adjoin stream *auto-flush-streams*))  
   (unless *auto-flush-thread*  
     (setq *auto-flush-thread*  
           (ext:make-thread #'flush-streams  
                            :name "auto-flush-thread"))))  
   
 (defun flush-streams ()  
   (loop  
    (setq *auto-flush-streams*  
          (remove-if (lambda (x)  
                       (not (and (open-stream-p x)  
                                 (output-stream-p x))))  
                     *auto-flush-streams*))  
    (mapc #'finish-output *auto-flush-streams*)  
    (sleep 0.15)))  
   
527  (defimplementation quit-lisp ()  (defimplementation quit-lisp ()
528    (ext:exit))    (ext:exit))
529    

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5