X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fgray-streams.impure.lisp;h=ab827debdfc3c3db90856724d6f6cfc82d4f6d3e;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=77a8334bdaff2c81758f54fd813571b19387ea5b;hpb=edf8d3701ba59bd9f0c1bd027f3179b98250cfd0;p=sbcl.git

diff --git a/tests/gray-streams.impure.lisp b/tests/gray-streams.impure.lisp
index 77a8334..ab827de 100644
--- a/tests/gray-streams.impure.lisp
+++ b/tests/gray-streams.impure.lisp
@@ -331,3 +331,8 @@
  (make-two-way-stream *part-of-composite* *standard-output*)
  (make-concatenated-stream *part-of-composite*)
  (make-synonym-stream '*part-of-composite*))
+
+;;; Using STREAM-FILE-POSITION on an ANSI-STREAM
+(with-output-to-string (s)
+  (assert (zerop (file-position s)))
+  (assert (zerop (stream-file-position s))))