X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fgray-streams.impure.lisp;h=ab827debdfc3c3db90856724d6f6cfc82d4f6d3e;hb=518493eab883e50237043153c0d45b245e929c7d;hp=5b878177dd14c268d0e82bb0b77261be1155257d;hpb=804a4f391c8dce7d39a5339d87895b069d87554a;p=sbcl.git

diff --git a/tests/gray-streams.impure.lisp b/tests/gray-streams.impure.lisp
index 5b87817..ab827de 100644
--- a/tests/gray-streams.impure.lisp
+++ b/tests/gray-streams.impure.lisp
@@ -290,7 +290,7 @@
 
 (defvar *gray-binary-data*
   (let ((vector (make-array 1024 :element-type '(unsigned-byte 8) :fill-pointer 0)))
-    (dotimes (i (length vector))      
+    (dotimes (i (length vector))
       (setf (aref vector i) (random 256)))
     vector))
 
@@ -321,9 +321,9 @@
       (dotimes (i 1024)
         (unless (eql (aref *gray-binary-data* i)
                      (aref binary-buffer i))
-          (error "wanted ~S at ~S, got ~S (~S)" 
+          (error "wanted ~S at ~S, got ~S (~S)"
                  (aref *gray-binary-data* i)
-                 i 
+                 i
                  (aref binary-buffer i)
                  stream))))))
 
@@ -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))))