[armedbear-ticket] [armedbear] #158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL
#158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: nobody Type: defect | Status: new Priority: major | Milestone: Component: libraries | Version: Keywords: | ------------------------+--------------------------------------------------- (let ((*print-readably* t)) (print "#<abc>")) --> Error: #<abc> cannot be printed readably However, I'm printing a string containing something which looks like an unreadable object. Not an unreadable object itself! -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/158> armedbear <http://common-lisp.net/project/armedbear> armedbear
#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
#158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL ------------------------+--------------------------------------------------- Reporter: ehuelsmann | Owner: nobody Type: defect | Status: new Priority: major | Milestone: 0.27 Component: libraries | Version: Keywords: patch | ------------------------+--------------------------------------------------- Changes (by mevenson): * milestone: => 0.27 -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/158#comment:2> armedbear <http://common-lisp.net/project/armedbear> armedbear
#158: Printing "#<abc>" fails when *PRINT-READABLY* non-NIL -------------------------+-------------------------------------------------- Reporter: ehuelsmann | Owner: nobody Type: defect | Status: closed Priority: major | Milestone: 0.27 Component: libraries | Version: Resolution: fixed | Keywords: patch -------------------------+-------------------------------------------------- Changes (by ehuelsmann): * status: new => closed * resolution: => fixed Comment: (In [13446]) 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.*. -- Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/158#comment:3> armedbear <http://common-lisp.net/project/armedbear> armedbear
participants (1)
-
armedbear