Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • rtoy's avatar
    bdb3e53c
    Rob Warnock reports on c.l.l that · bdb3e53c
    rtoy authored
    (let ((s (make-two-way-stream (make-concatenated-stream)
    				  (make-broadcast-stream))))
          (dotimes (i 10) (format s "Hello, i = ~a~%" i)))
    
    doesn't work.  This is caused by TWO-WAY-MISC not handling the
    :CHARPOS and :LINE-LENGTH operations.  Just call the appropriate
    versions for the output stream of the two-way stream.
    bdb3e53c
    History
    Rob Warnock reports on c.l.l that
    rtoy authored
    (let ((s (make-two-way-stream (make-concatenated-stream)
    				  (make-broadcast-stream))))
          (dotimes (i 10) (format s "Hello, i = ~a~%" i)))
    
    doesn't work.  This is caused by TWO-WAY-MISC not handling the
    :CHARPOS and :LINE-LENGTH operations.  Just call the appropriate
    versions for the output stream of the two-way stream.