\f
;;;; 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.")
#!+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))