[Openmcl-cvs-notifications] r14808 - /trunk/source/level-0/ARM/arm-utils.lisp

[rme at clozure.com]

Author: rme
Date: Tue May 31 18:25:44 2011
New Revision: 14808

Log:
We want one arg (not zero) in allow-heap-allocation.

Modified:
    trunk/source/level-0/ARM/arm-utils.lisp

Modified: trunk/source/level-0/ARM/arm-utils.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/level-0/ARM/arm-utils.lisp (original)
+++ trunk/source/level-0/ARM/arm-utils.lisp Tue May 31 18:25:44 2011
@@ -421,7 +421,7 @@
   "If ARG is true, signal an ALLOCATION-DISABLED condition on attempts
 at heap allocation."
   (:arglist (arg))
-  (check-nargs 0)
+  (check-nargs 1)
   (cmp arg_z (:$ arm::nil-value))
   (mov imm0 (:$ arch::gc-trap-function-allocation-control))
   (mov imm1 (:$ 0))                     ;disallow