diff --git a/code/stream.lisp b/code/stream.lisp index 438aa6ee09ea9d53ca86a65a79135ef1e0e22790..a59b834844a3a47da9dde811e78c9d20e495c311 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -851,11 +851,11 @@ (setf (string-output-stream-index stream) dst-end))) (defun string-out-misc (stream operation &optional arg1 arg2) - (declare (ignore arg1 arg2)) + (declare (ignore arg2)) (case operation (:file-position (if (null arg1) - (string-output-stream-index stream))) + (string-output-stream-index stream))) (:charpos (do ((index (1- (the fixnum (string-output-stream-index stream))) (1- index))