Changeset 914

Timestamp:

Feb 16, 2005, 11:20:26 AM (20 years ago)

Author:

bryan

Message:

if *read-suppress*, return NIL from read(-*) forms.

File:

• trunk/ccl/level-1/l1-reader.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-reader.lisp

@@ -1041 +1041 @@
             (multiple-value-bind (form form-p) (%parse-expression stream ch nil)
               (if form-p
-                 (return form))))))))
+                 (if *read-suppress*
+                     (return nil)
+                     (return form)))))))))