diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp index a577048c36708438d3fe29b68b2930ee744aaec5..44c494ff66eefc25f549aab850cd8a3c525d3c57 100644 --- a/code/bit-bash.lisp +++ b/code/bit-bash.lisp @@ -279,6 +279,24 @@ (merge-bits shift prev next)) +;;; These are supported as primitives. + +(defun 32bit-logical-not (x) + (32bit-logical-not x)) + +(defun 32bit-logical-and (x y) + (32bit-logical-and x y)) + +(defun 32bit-logical-or (x y) + (32bit-logical-or x y)) + +(defun 32bit-logical-xor (x y) + (32bit-logical-or x y)) + +(defun 32bit-logical-nor (x y) + (32bit-logical-nor x y)) + + ;;; These are not supported as primitives. (proclaim '(inline 32bit-logical-eqv 32bit-logical-nand 32bit-logical-andc1