X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Freader.lisp;h=51df957ec72d1b10e94086c5aec2052c31fe2038;hb=667ec9d494530079bef28e8589dd0d3274b935ec;hp=77a9555f94bf7e39a44afd0ae372730a39d4709d;hpb=dec94b039e8ec90baf21463df839a6181de606f6;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 77a9555..51df957 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -205,7 +205,7 @@
 
 (defun get-macro-character (char &optional (rt *readtable*))
   #!+sb-doc
-  "Returns the function associated with the specified char which is a macro
+  "Return the function associated with the specified char which is a macro
   character. The optional readtable argument defaults to the current
   readtable."
   (let ((rt (or rt *standard-readtable*)))
@@ -1302,7 +1302,7 @@
 (defun get-dispatch-macro-character (disp-char sub-char
                                      &optional (rt *readtable*))
   #!+sb-doc
-  "Returns the macro character function for sub-char under disp-char
+  "Return the macro character function for sub-char under disp-char
    or nil if there is no associated function."
   (unless (digit-char-p sub-char)
     (let* ((sub-char (char-upcase sub-char))