#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)))