Changeset 14696

Timestamp:

Mar 23, 2011, 2:50:12 PM (14 years ago)

Author:

Gary Byers

Message:

Remove stray "(and nil ..." conditionalization from ACODE-OPTIMIZE-LOGIOR2.

File:

• trunk/source/compiler/nx2.lisp (modified) (1 diff)

trunk/source/compiler/nx2.lisp

@@ -436 +436 @@
 (defun acode-optimize-logior2 (seg vreg xfer num1 num2 trust-decls &optional (result-type 'integer))
   (declare (ignorable result-type))
-  (or (and nil (acode-constant-fold-integer-binop seg vreg xfer num1 num2 'logior))
+  (or (acode-constant-fold-integer-binop seg vreg xfer num1 num2 'logior)
       (let* ((unsigned-natural-type *nx-target-natural-type*)
              (target-fixnum-type *nx-target-fixnum-type*))