From c2fb50d2cb3e63ec0d5a257273cd7ca2d7a14291 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Jun 1990 12:21:49 +0000
Subject: [PATCH] Flushed bogus ignore declaration.

---
 hemlock/rompsite.lisp | 2 +-
 hemlock/screen.lisp   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp
index 6bef157ee..945013462 100644
--- a/hemlock/rompsite.lisp
+++ b/hemlock/rompsite.lisp
@@ -869,7 +869,7 @@
 		      (:misc #'editor-window-misc))
 	    (:print-function
 	     (lambda (s stream d)
-	       (declare (ignore s d write))
+	       (declare (ignore s d))
 	       (write-string "#<Editor-Window-Input stream>" stream)))
 	    (:constructor make-editor-window-input-stream
 			  (&optional (head (make-key-event)) (tail head))))
diff --git a/hemlock/screen.lisp b/hemlock/screen.lisp
index a82f122d0..076589e1a 100644
--- a/hemlock/screen.lisp
+++ b/hemlock/screen.lisp
@@ -176,7 +176,7 @@
   (list (make-modeline-field
 	 :name :more-prompt
 	 :function #'(lambda (buffer window)
-		       (declare (ignore buffer window))
+		       (declare (ignore window))
 		       (ecase *more-prompt-action*
 			 (:more "--More--")
 			 (:flush "--Flush--")
-- 
GitLab