X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=05ac6e2e6a95db901bc2f2e1171742c6264c9a10;hb=a00ea11a89c9db677e60edf6832c905a4527b5cb;hp=2015a77a096ba65cc19e8868e4dbdd9534af8695;hpb=f37fd916aae6ecbb7341c1385c7113608b7816a5;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 2015a77..05ac6e2 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1705,11 +1705,14 @@ the usual naming convention (names like *FOO*) for special variables"
   (define-nil-returning-restart continue ()
     "Transfer control to a restart named CONTINUE, or return NIL if none exists.")
   (define-nil-returning-restart store-value (value)
-    "Transfer control and VALUE to a restart named STORE-VALUE, or return NIL if
-   none exists.")
+    "Transfer control and VALUE to a restart named STORE-VALUE, or
+return NIL if none exists.")
   (define-nil-returning-restart use-value (value)
-    "Transfer control and VALUE to a restart named USE-VALUE, or return NIL if
-   none exists."))
+    "Transfer control and VALUE to a restart named USE-VALUE, or
+return NIL if none exists.")
+  (define-nil-returning-restart print-unreadably ()
+    "Transfer control to a restart named SB-EXT:PRINT-UNREADABLY, or
+return NIL if none exists."))
 
 ;;; single-stepping restarts