0.pre7.80:

[sbcl.git] / src / code / target-error.lisp

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 4c1ea5c..6f576f7 100644 (file)
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -56,7 +56,7 @@
 
 #!+sb-doc
 (setf (fdocumentation 'restart-name 'function)
 
 #!+sb-doc
 (setf (fdocumentation 'restart-name 'function)

-      "Returns the name of the given restart object.")
+      "Return the name of the given restart object.")

 
 (defun restart-report (restart stream)
   (funcall (or (restart-report-function restart)
 
 (defun restart-report (restart stream)
   (funcall (or (restart-report-function restart)

@@ -107,7 +107,7 @@
 
 (defun find-restart (name &optional condition)
   #!+sb-doc
 
 (defun find-restart (name &optional condition)
   #!+sb-doc

-  "Returns the first restart named name. If name is a restart, it is returned
+  "Return the first restart named name. If name is a restart, it is returned

    if it is currently active. If no such restart is found, nil is returned.
    It is an error to supply nil as a name. If Condition is specified and not
    NIL, then only restarts associated with that condition (or with no
    if it is currently active. If no such restart is found, nil is returned.
    It is an error to supply nil as a name. If Condition is specified and not
    NIL, then only restarts associated with that condition (or with no