Changeset 922


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

## when *read-suppress* should return nil, not (values).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/read.lisp

    r919 r922  
    184184      (declare (ignore stream))
    185185      (if *read-suppress*
    186         (values)
     186        nil
    187187        (if arg
    188188          (let ((pair (assoc arg %read-objects%))) ;Not assq, could be bignum!
Note: See TracChangeset for help on using the changeset viewer.