Changeset 920


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

#( when *read-suppress should ignore array length problems.

File:
1 edited

Legend:

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

    r918 r920  
    766766  (lambda (stream subchar numarg)
    767767    (declare (ignore subchar))
    768     (if (null numarg)
     768    (if (or (null numarg) *read-suppress*)
    769769      (let* ((lst (read-list stream t))
    770770             (len (length lst))
Note: See TracChangeset for help on using the changeset viewer.