- (restart-case
- (error 'print-not-readable :object array)
- (print-unreadably ()
- :report "Print unreadably."
- (let ((*print-readably* nil))
- (pprint-array stream array)))
- (use-value (o)
- :report "Supply an object to be printed instead."
- :interactive read-unreadable-replacement
- (write o :stream stream))))
+ (if *read-eval*
+ (if (vectorp array)
+ (sb!impl::output-unreadable-vector-readably array stream)
+ (sb!impl::output-unreadable-array-readably array stream))
+ (print-not-readable-error array stream)))