X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbit-bash.lisp;h=f9611cf19be58c61e14581d71426d768474a379d;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=1df58ceee9b1faea117f87833aa3a7a0db02c90d;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 1df58ce..f9611cf 100644
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -10,14 +10,9 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
-  "$Header$")
 
 ;;;; constants and types
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-
 (defconstant unit-bits sb!vm:word-bits
   #!+sb-doc
   "The number of bits to process at a time.")
@@ -26,6 +21,9 @@
   #!+sb-doc
   "The maximum number of bits that can be delt with during a single call.")
 
+;;; FIXME: Do we really need EVAL-WHEN around these DEFTYPEs?
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
 (deftype unit ()
   `(unsigned-byte ,unit-bits))
 
@@ -213,7 +211,7 @@
 	;; care.
 	(cond
 	 ((zerop length)
-	  ;; Actually, we aren't even writing one word. This is real easy.
+	  ;; Actually, we aren't even writing one word. This is really easy.
 	  )
 	 ((= length unit-bits)
 	  ;; DST-BIT-OFFSET must be equal to zero, or we would be writing