#158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: nobody Type: defect | Status: new Priority: major | Milestone: Component: libraries | Version: Keywords: patch | ------------------------+--------------------------------------------------- Changes (by ehuelsmann): * keywords: => patch Comment: The patch below fixes this and doesn't create any new regressions in the ansi test suite. However, why was this bit of code there? Am I missing something??? Index: print.lisp =================================================================== --- print.lisp (revision 13405) +++ print.lisp (working copy) @@ -280,10 +280,11 @@ (symbol-package x)))) (defun %print-object (object stream) - (when (and *print-readably* - (typep object 'string) - (search "#<" object)) - (error 'print-not-readable :object object)) + ;; ### Why was this section here??? EH20110715 + ;; (when (and *print-readably* + ;; (typep object 'string) + ;; (search "#<" object)) + ;; (error 'print-not-readable :object object)) (if *print-pretty* (xp::output-pretty-object object stream) (output-ugly-object object stream))) -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/158#comment:1> armedbear <http://common-lisp.net/project/armedbear> armedbear