0.9.6.32:

[sbcl.git] / tests / stream.pure.lisp

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index b9e2a9b..9e9d914 100644 (file)
--- a/tests/stream.pure.lisp
+++ b/tests/stream.pure.lisp
@@ -293,3 +293,9 @@
 
 (with-standard-io-syntax
   (open "/dev/null"))
+
+;;; PEEK-CHAR T uses whitespace[2]
+(let ((*readtable* (copy-readtable)))
+  (assert (char= (peek-char t (make-string-input-stream " a")) #\a))
+  (set-syntax-from-char #\Space #\a)
+  (assert (char= (peek-char t (make-string-input-stream " a")) #\Space)))