0.7.3.18:

[sbcl.git] / src / code / cold-init-helper-macros.lisp

diff --git a/src/code/cold-init-helper-macros.lisp b/src/code/cold-init-helper-macros.lisp
index ec20c2e..f34c5d9 100644 (file)
--- 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*