+ (restart-case
+ (error 'print-not-readable :object state)
+ (print-unreadably ()
+ :report "Print unreadably."
+ (write state :stream stream :readably nil))
+ (use-value (object)
+ :report "Supply an object to be printed instead."
+ :interactive read-unreadable-replacement
+ (write object :stream stream)))