diff --git a/hemlock/pop-up-stream.lisp b/hemlock/pop-up-stream.lisp index 48b548f242e87344886abe6742f821681d8386ad..3549e27878df909627f1566acb568b0cb9a6a26e 100644 --- a/hemlock/pop-up-stream.lisp +++ b/hemlock/pop-up-stream.lisp @@ -29,7 +29,6 @@ stream 1))) (defun random-typeout-line-sout (stream string start end) - (declare (ignore start end)) (insert-string (random-typeout-stream-mark stream) string start end) (unless (random-typeout-stream-no-prompt stream) (let ((count (count #\newline string))) @@ -160,7 +159,6 @@ (insert-character (random-typeout-stream-mark stream) char)) (defun random-typeout-full-sout (stream string start end) - (declare (ignore start end)) (insert-string (random-typeout-stream-mark stream) string start end)) (defun random-typeout-full-misc (stream operation &optional arg1 arg2)