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