Changeset 921


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

#nr shouldn't type-check n when *read-suppress*.

File:
1 edited

Legend:

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

    r920 r921  
    896896 #\r
    897897 #'(lambda (stream subchar numarg)
    898      (require-numarg subchar numarg)
    899      (check-type numarg (integer 2 36))
     898     (unless *read-suppress*
     899       (require-numarg subchar numarg)
     900       (check-type numarg (integer 2 36)))
    900901     (%read-rational stream subchar numarg)))
    901902
Note: See TracChangeset for help on using the changeset viewer.