From bdb3e53c2d09034205588df67dd6bc94bbcd4254 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 19 Apr 2005 18:26:42 +0000 Subject: [PATCH] Rob Warnock reports on c.l.l that (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. --- code/stream.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/code/stream.lisp b/code/stream.lisp index eb92b971c..7a7c50386 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.78 2005/02/21 17:14:28 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.79 2005/04/19 18:26:42 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1164,6 +1164,10 @@ streams." (set-closed-flame stream)) (:file-length (error 'type-error :datum stream :expected-type 'file-stream)) + (:charpos + (charpos out)) + (:line-length + (line-length out)) (t (or (if in-lisp-stream-p (funcall (lisp-stream-misc in) in operation arg1 arg2) -- GitLab