X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcold-init-helper-macros.lisp;h=f34c5d918cd0638e99aa8bd4059073e663f25d99;hb=8731c1a7c1a585d190151fa881050fb5e14c0616;hp=ec20c2e289d4b2405f6781b05354e03da70d85b6;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/cold-init-helper-macros.lisp b/src/code/cold-init-helper-macros.lisp
index ec20c2e..f34c5d9 100644
--- a/src/code/cold-init-helper-macros.lisp
+++ b/src/code/cold-init-helper-macros.lisp
@@ -16,9 +16,6 @@
 ;;; FIXME: Perhaps this belongs in the %SYS package like some other
 ;;; cold load stuff.
 
-(file-comment
-  "$Header$")
-
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar *cold-init-forms*))
 
@@ -30,7 +27,7 @@
   #+sb-xc-host nil)
 
 ;;; Note: Unlike the analogous COLD-INIT macro in CMU CL, this macro
-;;; makes no attempt to simulate a top-level situation by treating
+;;; makes no attempt to simulate a top level situation by treating
 ;;; EVAL-WHEN forms specially.
 (defmacro !cold-init-forms (&rest forms)
   ;; In the target Lisp, stuff the forms into a named function which
@@ -55,8 +52,6 @@
 		    (makunbound '*cold-init-forms*)))
   #+sb-xc-host (declare (ignore name)))
 
-;;; FIXME: These macros should be byte-compiled.
-
 ;;; FIXME: Consider renaming this file asap.lisp,
 ;;; and the renaming the various things
 ;;;   *ASAP-FORMS* or *REVERSED-ASAP-FORMS*