Changeset 914


Ignore:
Timestamp:
Feb 16, 2005, 7:20:26 PM (17 years ago)
Author:
bryan
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-reader.lisp

    r901 r914  
    10411041            (multiple-value-bind (form form-p) (%parse-expression stream ch nil)
    10421042              (if form-p
    1043                  (return form))))))))
     1043                 (if *read-suppress*
     1044                     (return nil)
     1045                     (return form)))))))))
    10441046
    10451047
Note: See TracChangeset for help on using the changeset viewer.