projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.26:
[sbcl.git]
/
contrib
/
sb-simple-streams
/
cl.lisp
diff --git
a/contrib/sb-simple-streams/cl.lisp
b/contrib/sb-simple-streams/cl.lisp
index
38335e4
..
acd9860
100644
(file)
--- a/
contrib/sb-simple-streams/cl.lisp
+++ b/
contrib/sb-simple-streams/cl.lisp
@@
-669,7
+669,7
@@
simple-streams proposal.")
(ansi-stream
(%ansi-stream-read-sequence seq stream start end))
(fundamental-stream
(ansi-stream
(%ansi-stream-read-sequence seq stream start end))
(fundamental-stream
- (sb-gray:stream-read-sequence seq stream start end)))))
+ (sb-gray:stream-read-sequence stream seq start end)))))
(defun clear-input (&optional (stream *standard-input*) buffer-only)
"Clears any buffered input associated with the Stream."
(defun clear-input (&optional (stream *standard-input*) buffer-only)
"Clears any buffered input associated with the Stream."
@@
-790,7
+790,7
@@
simple-streams proposal.")
(ansi-stream
(%ansi-stream-write-sequence seq stream start end))
(fundamental-stream
(ansi-stream
(%ansi-stream-write-sequence seq stream start end))
(fundamental-stream
- (sb-gray:stream-write-sequence seq stream start end)))))
+ (sb-gray:stream-write-sequence stream seq start end)))))
(defun terpri (&optional (stream *standard-output*))
"Outputs a new line to the Stream."
(defun terpri (&optional (stream *standard-output*))
"Outputs a new line to the Stream."