[Openmcl-cvs-notifications] r7443 - /trunk/ccl/compiler/X86/x862.lisp

[gb at clozure.com]

Author: gb
Date: Sun Oct 14 21:05:05 2007
New Revision: 7443

Log:
too much zeal

Modified:
    trunk/ccl/compiler/X86/x862.lisp

Modified: trunk/ccl/compiler/X86/x862.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/compiler/X86/x862.lisp (original)
+++ trunk/ccl/compiler/X86/x862.lisp Sun Oct 14 21:05:05 2007
@@ -3285,7 +3285,7 @@
               (if (zerop constant)
                 (! compare-reg-to-zero reg)
                 (! compare-s32-constant reg (or js32 is32)))
-              (unless (or (and js32 (not is32)) (eq cr-bit x86::x86-e-bits=
))
+              (unless (or js32 (eq cr-bit x86::x86-e-bits))
                 (setq cr-bit (x862-reverse-cr-bit cr-bit)))
               (^ cr-bit true-p))
             (if (and (eq cr-bit x86::x86-e-bits) =