master: Declare that unread-char returns nil
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 cb64b7018a8abe6ad4db5c49c5b7894f15d3a3e0 (commit)
from b74f5c4ef49355d580ec7cef9924f8ba71f6ff38 (commit)
- Log -----------------------------------------------------------------
commit cb64b7018a8abe6ad4db5c49c5b7894f15d3a3e0
Author: Stas Boukarev <[email protected]>
Date: Fri Aug 7 03:25:59 2026 +0300
Declare that unread-char returns nil
---
src/compiler/fndb.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index e137e4f74..389e6a820 100644
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -1752,7 +1752,7 @@
(defknown read-delimited-list (character &optional stream-designator t) list ())
;; FIXME: add a type-deriver => (values (or string eof-value) boolean)
(defknown read-line (&optional stream-designator t t t) (values t boolean) ())
-(defknown unread-char (character &optional stream-designator) t ())
+(defknown unread-char (character &optional stream-designator) null ())
(defknown peek-char (&optional (or character (member nil t))
stream-designator t t t) t
()
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL