Sun Jul 19 12:28:28 UTC 2009 pix@kepibu.org
* Take *read-suppress* into account
diff -rN -u old-portaCL/reader.lisp new-portaCL/reader.lisp
--- old-portaCL/reader.lisp 2013-06-26 02:48:12.000000000 +0000
+++ new-portaCL/reader.lisp 2013-06-26 02:48:12.000000000 +0000
@@ -11,6 +11,10 @@
(read-form (stream)
(read stream t nil t)))
(cond
+ (*read-suppress*
+ (read-form stream)
+ (read-form stream)
+ (values))
((feature-truth
(let ((*package* (find-package :keyword)))
(read-form stream)))