From 47e140c73933bb43805a88987690eb1188df97d6 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 May 1990 12:32:42 +0000 Subject: [PATCH] Flushed broken INGORE declaration. --- code/stream.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/stream.lisp b/code/stream.lisp index 438aa6ee0..a59b83484 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)) -- GitLab