Plaster
New
List
Login
common-lisp
default
anonymous
2022.11.21 14:47:37
(with-input-from-string (stream "a") (let ((char (read-char stream))) (assert (eq :eof (read-char stream nil :eof))) (unread-char char stream) (assert (char= #\a (read-char stream)))))
Raw
Annotate
Repaste
Edit