[Openmcl-cvs-notifications] r14764 - /trunk/source/compiler/ARM/arm-lapmacros.lisp

[gb at clozure.com]

Author: gb
Date: Sun May  1 07:13:57 2011
New Revision: 14764

Log:
The CHECK-NARGS ARM lapmacro has handled the case when min and max differ
incorrectly for a long time; this seems to explain the occasional error
in (e.g.) calls to %FIXNUM-SET, which bizarrely complain that "2 arguments
were received, but at least 2 were required" ...

Modified:
    trunk/source/compiler/ARM/arm-lapmacros.lisp

Modified: trunk/source/compiler/ARM/arm-lapmacros.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/source/compiler/ARM/arm-lapmacros.lisp (original)
+++ trunk/source/compiler/ARM/arm-lapmacros.lisp Sun May  1 07:13:57 2011
@@ -48,7 +48,7 @@
             (uuo-error-wrong-nargs (:? hi))
             ,ok1)
           `(progn
-            (cmp nargs ($ (ash ,max arm::fixnumshift)))
+            (cmp nargs ($ (ash ,min arm::fixnumshift)))
             (bhs ,ok1)
             (uuo-error-wrong-nargs (:? lo))
             ,ok1