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