X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Finfo-functions.lisp;h=52cf65f1f2dc2f8537b21dffcdbf5d59f6a590b5;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=b9dfd7137a4d1932bd1bc4ff7f4a2cc623255fea;hpb=b0b168c08b31a748150f404398af754f26fd4813;p=sbcl.git

diff --git a/src/compiler/info-functions.lisp b/src/compiler/info-functions.lisp
index b9dfd71..52cf65f 100644
--- a/src/compiler/info-functions.lisp
+++ b/src/compiler/info-functions.lisp
@@ -189,10 +189,9 @@
 
 (defun sb!xc:compiler-macro-function (name &optional env)
   #!+sb-doc
-  "If NAME names a compiler-macro, returns the expansion function,
-   else returns NIL. Note: if the name is shadowed in ENV by a local
-   definition, or declared NOTINLINE, NIL is returned. Can be
-   set with SETF."
+  "If NAME names a compiler-macro, return the expansion function, else
+   return NIL. Note: if the name is shadowed in ENV by a local definition,
+   or declared NOTINLINE, NIL is returned. Can be set with SETF."
   (let ((found (and env
 		    (cdr (assoc name (sb!c::lexenv-funs env)
 				:test #'equal)))))