/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

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

revision 1.25.2.6 by dtc, Sun Jul 23 14:59:58 2000 UTC revision 1.25.2.7 by dtc, Thu Aug 24 19:55:53 2000 UTC
# Line 1745  Line 1745 
1745               ((>= i end) seq)               ((>= i end) seq)
1746             (declare (type index i))             (declare (type index i))
1747             (funcall write-function (aref seq i) stream)))))))             (funcall write-function (aref seq i) stream)))))))
1748    
1749    
1750    
1751    ;;; finish-standard-output-streams  --  Public
1752    ;;;
1753    ;;; Finish output on some of the standard output streams.
1754    ;;;
1755    (defun finish-standard-output-streams ()
1756      (dolist (stream '(*standard-output* *error-output* *trace-output*))
1757        (when (boundp stream)
1758          (let ((stream (symbol-value stream)))
1759            (when (and (streamp stream) (open-stream-p stream))
1760              (finish-output stream))))))

Legend:
Removed from v.1.25.2.6  
changed lines
  Added in v.1.25.2.7

  ViewVC Help
Powered by ViewVC 1.1.5