X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-random.lisp;h=57c57a785c554de1afeb6f31eba7399b64c7cb5e;hb=3f3033a6c0ddf0af8dd1b5a17c2a4b82ea59b94f;hp=d4c98c33dc493f3cce73ece107d3d860b44d6e30;hpb=cc27e35fc73e6765679d6f426ee144abdfac7c27;p=sbcl.git

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index d4c98c3..57c57a7 100644
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -42,15 +42,7 @@
 
 (def!method print-object ((state random-state) stream)
   (if (and *print-readably* (not *read-eval*))
-      (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)))
+      (print-not-readable-error state stream)
       (format stream "#S(~S ~S #.~S)"
               'random-state
               ':state