Ignore:
Timestamp:
08/06/11 16:59:33 (10 years ago)
Author:
ehuelsmann
Message:

Fix #158: Print "#<abc>" fails with *PRINT-READABLY* non-NIL.

Note: This commit also fixes some failures in the random testing

ANSI tests, notably PRINT.RANDOM.SYMBOL.*.

File:
1 edited

Legend:

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

    r12809 r13446  
    281281
    282282(defun %print-object (object stream)
    283   (when (and *print-readably*
    284              (typep object 'string)
    285              (search "#<" object))
    286     (error 'print-not-readable :object object))
    287283  (if *print-pretty*
    288284      (xp::output-pretty-object object stream)
Note: See TracChangeset for help on using the changeset viewer.