X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fstream.pure.lisp;h=9e9d914b383c81f39ee80d8daa22caae458b95b6;hb=85483d976cc2d779493985f77f39efefb2ea622b;hp=b9e2a9ba2e5a8dc6d3b31db4963dc79097e5ff28;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/stream.pure.lisp b/tests/stream.pure.lisp
index b9e2a9b..9e9d914 100644
--- 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)))