X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Fcl.lisp;fp=contrib%2Fsb-simple-streams%2Fcl.lisp;h=acd9860b9f850493e33e86ed3d10e9536361e0d2;hb=f5f4dc4eb88fd23d8fb835c21ca862274d26c18e;hp=38335e436a811ceba3990f53ae5e953af85833e5;hpb=60d2531e0a12daa5a43e390affe9260688b17d21;p=sbcl.git

diff --git a/contrib/sb-simple-streams/cl.lisp b/contrib/sb-simple-streams/cl.lisp
index 38335e4..acd9860 100644
--- 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
-       (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."
@@ -790,7 +790,7 @@ simple-streams proposal.")
       (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."