diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp index 006140dd4966b20f5ab98a938d7168b519984f82..4d79237d2712ba4f02cbabf8af0b7bb976992e7c 100644 --- a/code/bit-bash.lisp +++ b/code/bit-bash.lisp @@ -281,8 +281,6 @@ ;;; These are not supported as primitives. -#| - (proclaim '(inline 32bit-logical-eqv 32bit-logical-nand 32bit-logical-andc1 32bit-logical-andc2 32bit-logical-orc1 32bit-logical-orc2)) @@ -308,6 +306,8 @@ ;;;; The actual bashers. +#| + (proclaim '(optimize (speed 3) (safety 0))) (def-bit-basher bit-bash-clear 0 :constant)