Ignore:
Timestamp:
07/17/10 10:26:26 (11 years ago)
Author:
Mark Evenson
Message:

Honor *PRINT-READABLY* by throwing PRINT-NOT-READABLE for "#<".

Previously, if *PRINT-READABLY* was non-NIL, a string containing "#<"
would be output without signalling a PRINT-NOT-READABLE condition as
required by ANSI.

File:
1 edited

Legend:

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

    r12390 r12809  
    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))
    283287  (if *print-pretty*
    284288      (xp::output-pretty-object object stream)
Note: See TracChangeset for help on using the changeset viewer.