From 6c6aeae7dc2f4c2c1c201b9fb1e127999c9c7c94 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 12:20:14 +0000 Subject: [PATCH] Deleted some spurious ignore declarations. --- hemlock/pop-up-stream.lisp | 2 -- 1 file changed, 2 deletions(-) diff --git a/hemlock/pop-up-stream.lisp b/hemlock/pop-up-stream.lisp index 48b548f24..3549e2787 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) -- GitLab