X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-error.lisp;h=6f576f718cef180641f34521f200c3e534ca50a9;hb=986ce2596822cc0871b609346aaf592348aca596;hp=4c1ea5c342a944e1bc88e2c229b35e8e5f8df47c;hpb=959057baab99d4328fc386aee3fcc812f5fcb3ed;p=sbcl.git

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 4c1ea5c..6f576f7 100644
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -56,7 +56,7 @@
 
 #!+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)
@@ -107,7 +107,7 @@
 
 (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