Changeset 15341

Timestamp:

Apr 21, 2012, 6:35:49 AM (13 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/compiler/ARM/arm-lap.lisp (modified) (2 diffs)

trunk/source/compiler/ARM/arm-lap.lisp

@@ -225 +225 @@
 (defun arm-lap-equate-form (eqlist body current sections)
   (collect ((symbols)
-            (values))
+            (vals))
     (let* ((arm::*arm-register-names* arm::*arm-register-names*))
       (dolist (pair eqlist)
@@ -242 +242 @@
               (progn
                 (symbols symbol)
-                (values (eval value)))))))
-    (progv (symbols) (values)
+                (vals (eval value)))))))
+    (progv (symbols) (vals)
       (dolist (form body current)
         (setq current (arm-lap-form form current sections)))))))