Index: /branches/arm/compiler/ARM/arm-backend.lisp
===================================================================
--- /branches/arm/compiler/ARM/arm-backend.lisp	(revision 13758)
+++ /branches/arm/compiler/ARM/arm-backend.lisp	(revision 13759)
@@ -67,4 +67,5 @@
       (dolist (n (append args temps))
         (add-spec-name (valid-spec-name n)))
+      #+no
       (dolist (form body)
         (if (atom form)
@@ -162,5 +163,10 @@
                                      (mapcar #'simplify-form opvals))
                                (if (keywordp opname)
-                                 form
+                                 (ecase opname
+                                   ((:code :data)  form)
+                                   (:word (destructuring-bind (val) opvals
+                                            (list opname
+                                                  (let* ((p (position val name-list)))
+                                                    (if p (list p) (eval val)))))))
                                  (arm::vinsn-simplify-instruction form name-list)))))))
                 (let* ((template (make-vinsn-template