projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Revert "Fix (aref vector (+ i constant)) with i negative on x86oids"
[sbcl.git]
/
tests
/
gray-streams.impure.lisp
diff --git
a/tests/gray-streams.impure.lisp
b/tests/gray-streams.impure.lisp
index
5b87817
..
ab827de
100644
(file)
--- 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)))
(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))
(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))
(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)
(aref *gray-binary-data* i)
- i
+ i
(aref binary-buffer i)
stream))))))
(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*))
(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))))