Changeset 14955


Ignore:
Timestamp:
Aug 29, 2011, 12:07:47 PM (8 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-asm.lisp

    r14951 r14955  
    6363
    6464(defun arm-constant-index (form)
    65   (let* ((idx (or (assoc form *arm-constants* :test 'equal)
     65  (let* ((idx (or (cdr (assoc form *arm-constants* :test 'equal))
    6666                  (let* ((n (length *arm-constants*)))
    6767                    (push (cons form n) *arm-constants*)
Note: See TracChangeset for help on using the changeset viewer.