X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmacroexpand.lisp;h=f351784667f0028a0d71c12869b4b98dd21a258a;hb=05525d3a5906d7a89fcb689c26177732493c40ce;hp=fc570d1cb02f73c905038f951033a91df1736441;hpb=4d5c5d322dcca0753474496cde44a9dbfe627496;p=sbcl.git diff --git a/src/code/macroexpand.lisp b/src/code/macroexpand.lisp index fc570d1..f351784 100644 --- a/src/code/macroexpand.lisp +++ b/src/code/macroexpand.lisp @@ -15,7 +15,7 @@ (defun sb!xc:special-operator-p (symbol) #!+sb-doc - "If the symbol globally names a special form, returns T, otherwise NIL." + "If the symbol globally names a special form, return T, otherwise NIL." (declare (symbol symbol)) (eq (info :function :kind symbol) :special-form)) @@ -31,7 +31,7 @@ (declaim (ftype (function (t &optional (or null sb!c::lexenv))) sb!xc:macroexpand-1)) (defun sb!xc:macroexpand-1 (form &optional env) #!+sb-doc - "If form is a macro (or symbol macro), expands it once. Returns two values, + "If form is a macro (or symbol macro), expand it once. Return two values, the expanded form and a T-or-NIL flag indicating whether the form was, in fact, a macro. ENV is the lexical environment to expand in, which defaults to the null environment."