Index: /trunk/source/compiler/X86/x862.lisp
===================================================================
--- /trunk/source/compiler/X86/x862.lisp	(revision 15031)
+++ /trunk/source/compiler/X86/x862.lisp	(revision 15032)
@@ -3806,10 +3806,9 @@
       (unless btriv 
         (if bconst
-          (progn
-            (setq bdest (x862-one-untargeted-reg-form seg bform breg restricted)
-                  restricted (x862-restrict-node-target bdest restricted))
-            (when (same-x86-reg-p bdest areg)
-              (setq areg breg)))
-          (x862-elide-pushes seg bpushed (x862-pop-register seg (setq bdest breg)))))
+          (setq bdest (x862-one-untargeted-reg-form seg bform breg restricted))
+          (x862-elide-pushes seg bpushed (x862-pop-register seg (setq bdest breg))))
+        (setq restricted (x862-restrict-node-target bdest restricted))
+        (when (same-x86-reg-p bdest areg)
+          (setq areg breg)))
       (unless atriv
         (if aconst
@@ -3915,23 +3914,22 @@
     (unless ctriv
       (if cconst
-        (progn
-          (setq cdest (x862-one-untargeted-reg-form seg cform creg restricted)
-                restricted (x862-restrict-node-target cdest restricted))
-          (unless adest
-            (when (same-x86-reg-p cdest areg)
-              (setq areg creg)))
-          (unless bdest
-            (when (same-x86-reg-p cdest breg)
-              (setq breg creg))))
-        (x862-elide-pushes seg cpushed (x862-pop-register seg (setq cdest creg)))))
+        (setq cdest (x862-one-untargeted-reg-form seg cform creg restricted))
+
+        (x862-elide-pushes seg cpushed (x862-pop-register seg (setq cdest creg))))
+      (setq restricted (x862-restrict-node-target cdest restricted))
+      (unless adest
+        (when (same-x86-reg-p cdest areg)
+          (setq areg creg)))
+      (unless bdest
+        (when (same-x86-reg-p cdest breg)
+          (setq breg creg))))
     (unless btriv
       (if bconst
-        (progn
-          (setq bdest (x862-one-untargeted-reg-form seg bform breg restricted)
-                restricted (x862-restrict-node-target bdest restricted))
-          (unless adest
-            (when (same-x86-reg-p bdest areg)
-              (setq areg breg))))
-        (x862-elide-pushes seg bpushed (x862-pop-register seg (setq bdest breg)))))
+        (setq bdest (x862-one-untargeted-reg-form seg bform breg restricted))
+        (x862-elide-pushes seg bpushed (x862-pop-register seg (setq bdest breg))))
+      (setq restricted (x862-restrict-node-target bdest restricted))
+      (unless adest
+        (when (same-x86-reg-p bdest areg)
+          (setq areg breg))))
     (unless atriv
       (if aconst