projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10:
[sbcl.git]
/
src
/
code
/
bit-bash.lisp
diff --git
a/src/code/bit-bash.lisp
b/src/code/bit-bash.lisp
index
64cd344
..
f9611cf
100644
(file)
--- a/
src/code/bit-bash.lisp
+++ b/
src/code/bit-bash.lisp
@@
-10,14
+10,9
@@
;;;; files for more information.
(in-package "SB!VM")
;;;; files for more information.
(in-package "SB!VM")
-
-(file-comment
- "$Header$")
\f
;;;; constants and types
\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.")
(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.")
#!+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))
(deftype unit ()
`(unsigned-byte ,unit-bits))