Index: /trunk/source/compiler/nx1.lisp
===================================================================
--- /trunk/source/compiler/nx1.lisp	(revision 14046)
+++ /trunk/source/compiler/nx1.lisp	(revision 14047)
@@ -450,6 +450,12 @@
                 (nx1-form newvalue)))
 
-(defnx1 nx1-logior-2 ((logior-2)) (&environment env arg-1 arg-2)
-  (nx-logior-2-op arg-1 arg-2 env))
+(defnx1 nx1-logior-2 ((logior-2)) (&whole w &environment env arg-1 arg-2)
+  (nx-binary-boole-op w
+		      env
+		      arg-1
+		      arg-2
+		      (%nx1-operator %ilogior2)
+		      (%nx1-operator logior2)
+		      (%nx1-operator %natural-logior)))
 
 (defnx1 nx1-logxor-2 ((logxor-2)) (&whole w &environment env arg-1 arg-2)
@@ -462,6 +468,12 @@
 		      (%nx1-operator %natural-logxor)))
 
-(defnx1 nx1-logand-2 ((logand-2)) (&environment env arg-1 arg-2)
-  (nx-logand-2-op arg-1 arg-2 env))
+(defnx1 nx1-logand-2 ((logand-2)) (&whole w &environment env arg-1 arg-2)
+  (nx-binary-boole-op w
+		      env
+		      arg-1
+		      arg-2
+		      (%nx1-operator %ilogand2)
+		      (%nx1-operator logand2)
+		      (%nx1-operator %natural-logand)))
 
 (defnx1 nx1-require ((require-simple-vector)