From 75d8c55877cc463b4927c3040d4908ccd8065f8f Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sun, 20 Dec 1998 04:17:26 +0000 Subject: [PATCH] Remove erroneous ignore declaration in peek-char. --- code/stream.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/stream.lisp b/code/stream.lisp index 18fe8c5fa..3b409db94 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.36 1998/12/19 16:12:51 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.37 1998/12/20 04:17:26 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -347,7 +347,6 @@ (defun peek-char (&optional (peek-type nil) (stream *standard-input*) (eof-errorp t) eof-value recursive-p) "Peeks at the next character in the input Stream. See manual for details." - (declare (ignore recursive-p)) (let ((stream (in-synonym-of stream)) (eof-errorp (or eof-errorp recursive-p))) (if (lisp-stream-p stream) -- GitLab