diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp index 6bef157eee7a1835e98ca4a4053fde79f1a733e6..94501346289409b4e490f3e068b995f8007ddf39 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 a82f122d0b4df965113e00976133a774e80d7ed4..076589e1ae97ff8cd6c349686fbc21ad2d2ca57e 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--")