Index: /trunk/source/compiler/ARM/arm-lap.lisp
===================================================================
--- /trunk/source/compiler/ARM/arm-lap.lisp	(revision 15340)
+++ /trunk/source/compiler/ARM/arm-lap.lisp	(revision 15341)
@@ -225,5 +225,5 @@
 (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,6 +242,6 @@
               (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)))))))