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