Printing objects with "#<" in their readable representation fail to print readably

[ehuelsmann]

(let ((s (gensym "#<"))

(*print-readably* t))

(print s))

--> Error: Object cannot be printed readably

However, the readable presentation of that symbol is #:|#<1|.

[ehuelsmann]

(In [13409]) Re #160: note the root cause.

[ehuelsmann]

The solution here is that each writeToString() method checks its own *print-readably* conditions. (Unfortunately, there are *lots* of those...)

[ehuelsmann]

Fixed in r13446.