[Openmcl-cvs-notifications] r14955 - /trunk/source/compiler/ARM/arm-asm.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 29 07:07:47 2011
New Revision: 14955

Log:
ARM-CONSTANT-INDEX: (CDR (ASSOC ...)), not (ASSOC ...).

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

Modified: trunk/source/compiler/ARM/arm-asm.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-asm.lisp (original)
+++ trunk/source/compiler/ARM/arm-asm.lisp Mon Aug 29 07:07:47 2011
@@ -62,7 +62,7 @@
 =

 =

 (defun arm-constant-index (form)
-  (let* ((idx (or (assoc form *arm-constants* :test 'equal)
+  (let* ((idx (or (cdr (assoc form *arm-constants* :test 'equal))
                   (let* ((n (length *arm-constants*)))
                     (push (cons form n) *arm-constants*)
                     n))))