src/: Fix some docstrings.

[sod] / src / parser / streams-impl.lisp

diff --git a/src/parser/streams-impl.lisp b/src/parser/streams-impl.lisp
index d62429a9927caf687df4aaa38a6b0e56bb81b88c..d84bee4bceec780ee3e10f627464a8c4633b018d 100644 (file)
--- a/src/parser/streams-impl.lisp
+++ b/src/parser/streams-impl.lisp
@@ -120,7 +120,8 @@ (defmethod stream-clear-input ((stream proxy-input-stream))
     (clear-input ustream)))
 
 (defmethod stream-read-sequence
     (clear-input ustream)))
 
 (defmethod stream-read-sequence

-    ((stream proxy-input-stream) seq &optional (start 0) end)
+    ((stream proxy-input-stream) seq
+     #+clisp &key #-clisp &optional (start 0) end)

   (with-slots (ustream) stream
     (read-sequence seq ustream :start start :end end)))
 
   (with-slots (ustream) stream
     (read-sequence seq ustream :start start :end end)))
 


@@ -144,7 +145,8 @@ (defmethod stream-force-output ((stream proxy-output-stream))
     (force-output ustream)))
 
 (defmethod stream-write-sequence
     (force-output ustream)))
 
 (defmethod stream-write-sequence

-    ((stream proxy-output-stream) seq &optional (start 0) end)
+    ((stream proxy-output-stream) seq
+     #+clisp &key #-clisp &optional (start 0) end)

   (with-slots (ustream) stream
     (write-sequence seq ustream :start start :end end)))
 
   (with-slots (ustream) stream
     (write-sequence seq ustream :start start :end end)))
 


@@ -306,7 +308,8 @@ (defmethod stream-unread-char ((stream position-aware-input-stream) char)
   (call-next-method))
 
 (defmethod stream-read-sequence
   (call-next-method))
 
 (defmethod stream-read-sequence

-    ((stream position-aware-input-stream) seq &optional (start 0) end)
+    ((stream position-aware-input-stream) seq
+     #+clisp &key #-clisp &optional (start 0) end)

   (declare (ignore end))
   (let ((pos (call-next-method)))
     (with-position (stream)
   (declare (ignore end))
   (let ((pos (call-next-method)))
     (with-position (stream)


@@ -345,7 +348,8 @@ (defclass position-aware-output-stream
    insertion of some user code."))
 
 (defmethod stream-write-sequence
    insertion of some user code."))
 
 (defmethod stream-write-sequence

-    ((stream position-aware-output-stream) seq &optional (start 0) end)
+    ((stream position-aware-output-stream) seq
+     #+clisp &key #-clisp &optional (start 0) end)

   (with-position (stream)
     (dosequence (ch seq :start start :end end)
       (update ch))
   (with-position (stream)
     (dosequence (ch seq :start start :end end)
       (update ch))