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