From bb788fb99b076ccf5b0e8ca1f5de00b4d40de202 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 3 Oct 1990 09:55:58 +0000
Subject: [PATCH] Added interpreter stubs for
 32bit-logical-{not,and,or,xor,nor}.

---
 code/bit-bash.lisp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index a577048c3..44c494ff6 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
-- 
GitLab