From: Christophe R. <cr...@us...> - 2003-02-19 19:54:43
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv18627/src/code Modified Files: stream.lisp Log Message: 0.7.12.48: Pre-freeze fix inclusions ... merge patch from Tony Martinez for CONCATENATED-STREAM misbehaviour (sbcl-devel 2003-02-10) ... include test from sbcl-devel 2003-02-15 Index: stream.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/stream.lisp,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- stream.lisp 4 Feb 2003 17:11:34 -0000 1.37 +++ stream.lisp 19 Feb 2003 19:54:36 -0000 1.38 @@ -904,7 +904,7 @@ (let* ((stream (car current)) (result (,fun stream nil nil))) (when result (return result))) - (setf (concatenated-stream-current stream) current))))) + (pop (concatenated-stream-current stream)))))) (in-fun concatenated-in read-char) (in-fun concatenated-bin read-byte)) |