master: Check for characters in unread-char
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via f7ac72d9f89410b13958652827652d9e1e80fad0 (commit)
from 8e5be95ed24654b4aac3ce2a717884694b85b2b2 (commit)
- Log -----------------------------------------------------------------
commit f7ac72d9f89410b13958652827652d9e1e80fad0
Author: Stas Boukarev <[email protected]>
Date: Fri Apr 10 19:14:02 2026 +0300
Check for characters in unread-char
---
src/code/stream.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index e366cfcf8..fd94b167f 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -441,7 +441,7 @@
(call-ansi-stream-misc stream :unread character)))))
(defun unread-char (character &optional (stream *standard-input*))
- (declare (explicit-check))
+ (declare (explicit-check stream))
(stream-api-dispatch (stream :input)
:simple (s-%unread-char stream character)
:native (ansi-stream-unread-char character stream)
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL