(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))
(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))))))
(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))))