X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fearly-c.lisp;h=c0dba380715d21c42bfa08001cb7add1d24abf6e;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=a98ec19e4fdbb2deda7448d92a9abec7e5bc79a7;hpb=f4f18b9dcdaf1948947b1747f5bfa766a1a0ee4c;p=sbcl.git

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index a98ec19..c0dba38 100644
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -125,7 +125,7 @@
 		note-name-defined))
 (defun note-name-defined (name kind)
   ;; We do this BOUNDP check because this function can be called when
-  ;; not in a compilation unit (as when loading top-level forms).
+  ;; not in a compilation unit (as when loading top level forms).
   (when (boundp '*undefined-warnings*)
     (setq *undefined-warnings*
 	  (delete-if (lambda (x)