Changeset 12282


Ignore:
Timestamp:
11/25/09 22:33:59 (12 years ago)
Author:
ehuelsmann
Message:

Fix PRINT-LEVEL.* tests all of which were related to

*PRINT-LEVEL* restriction on structure printing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/print.lisp

    r12218 r12282  
    134134         (output-vector object stream))
    135135        ((structure-object-p object)
    136          (print-object object stream))
     136         (cond
     137           ((and (null *print-readably*)
     138                 *print-level*
     139                 (>= *current-print-level* *print-level*))
     140            (write-char #\# stream))
     141           (t
     142            (print-object object stream))))
    137143        ((standard-object-p object)
    138144         (print-object object stream))
Note: See TracChangeset for help on using the changeset viewer.