Printing "#<abc>" fails when *PRINT-READABLY* non-NIL

[ehuelsmann]

(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!

[ehuelsmann]

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

[ehuelsmann]

(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.*.