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