X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flate-macros.lisp;h=fa02b773fea52151ed9a98000801cb4b9b44d4dd;hb=be9cdb85e4bc90f81e5ab97987286971d3303ba7;hp=dfd305c52ae709e8ccfb6e9dcac6af517f2614e9;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/compiler/late-macros.lisp b/src/compiler/late-macros.lisp
index dfd305c..fa02b77 100644
--- a/src/compiler/late-macros.lisp
+++ b/src/compiler/late-macros.lisp
@@ -78,10 +78,10 @@
 ;;; to use code like this, to factor out some shared functionality for clarity
 ;;; and for economy. But the motivation for splitting out this code here is
 ;;; much weirder. In the current version of the code, the cross-compiler calls
-;;; UNCROSS on each top-level form before processing it. Ordinarily, UNCROSS
+;;; UNCROSS on each top level form before processing it. Ordinarily, UNCROSS
 ;;; isn't called on macro expansions, but since DEF-BOOLEAN-ATTRIBUTE expands
 ;;; into a PROGN, the cross-compiler does end up calling UNCROSS on (the
-;;; components of) its macroexpansion, since they're separate top-level forms.
+;;; components of) its macroexpansion, since they're separate top level forms.
 ;;; In the classic CMU CL macroexpansion, the call to GET-SETF-EXPANSION is in
 ;;; the macroexpansion, and even when I translate it to
 ;;; SB!XC:GET-SETF-MACROEXPANSION so that it will work on target code, my