Changeset 15341


Ignore:
Timestamp:
Apr 21, 2012, 1:35:49 PM (7 years ago)
Author:
gb
Message:

Don't shadow CL:VALUES in ARM-LAP-REGISTER-EQUATE-FORM.

File:
1 edited

Legend:

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

    r15093 r15341  
    225225(defun arm-lap-equate-form (eqlist body current sections)
    226226  (collect ((symbols)
    227             (values))
     227            (vals))
    228228    (let* ((arm::*arm-register-names* arm::*arm-register-names*))
    229229      (dolist (pair eqlist)
     
    242242              (progn
    243243                (symbols symbol)
    244                 (values (eval value)))))))
    245     (progv (symbols) (values)
     244                (vals (eval value)))))))
     245    (progv (symbols) (vals)
    246246      (dolist (form body current)
    247247        (setq current (arm-lap-form form current sections)))))))
Note: See TracChangeset for help on using the changeset viewer.