X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=2593683608a15f50a13aad0c0b3184d0c0111969;hb=50f728671defadb8f7b1e8691c984cb0e6aba17c;hp=d1f52f8ef79cd34582e1d2defb53c6ca7334c8f9;hpb=24407d11d34abdaaef6d839fd0b2665c73b0e6d5;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index d1f52f8..2593683 100644
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -73,3 +73,10 @@
 	   (get-output-stream-string out-stream))
 	 ;; (Before the fix, the LET* expression just signalled an error.)
 	 "a"))
+
+;; 0.7.12 doesn't advance current stream in concatenated streams
+;; correctly when searching a stream for a char to read.
+(with-input-from-string (p "")
+  (with-input-from-string (q "foo")
+    (let* ((r (make-concatenated-stream p q)))
+      (peek-char nil r))))