Skip to content
Snippets Groups Projects
Commit 6c6aeae7 authored by ram's avatar ram
Browse files

Deleted some spurious ignore declarations.

parent 43dccab1
No related branches found
No related tags found
No related merge requests found
...@@ -29,7 +29,6 @@ ...@@ -29,7 +29,6 @@
stream 1))) stream 1)))
(defun random-typeout-line-sout (stream string start end) (defun random-typeout-line-sout (stream string start end)
(declare (ignore start end))
(insert-string (random-typeout-stream-mark stream) string start end) (insert-string (random-typeout-stream-mark stream) string start end)
(unless (random-typeout-stream-no-prompt stream) (unless (random-typeout-stream-no-prompt stream)
(let ((count (count #\newline string))) (let ((count (count #\newline string)))
...@@ -160,7 +159,6 @@ ...@@ -160,7 +159,6 @@
(insert-character (random-typeout-stream-mark stream) char)) (insert-character (random-typeout-stream-mark stream) char))
(defun random-typeout-full-sout (stream string start end) (defun random-typeout-full-sout (stream string start end)
(declare (ignore start end))
(insert-string (random-typeout-stream-mark stream) string start end)) (insert-string (random-typeout-stream-mark stream) string start end))
(defun random-typeout-full-misc (stream operation &optional arg1 arg2) (defun random-typeout-full-misc (stream operation &optional arg1 arg2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment