anchor.diff:      ((instruction cleavir-mir:funcall-instruction) inputs outputs)
     (let ((temps (loop for output in outputs collect (gensym))))
       `(multiple-value-bind ,temps (funcall ,(first inputs) ,@(rest inputs))
  -       (setq ,@(mapcar #'list outputs temps)))))
  +       (setq ,@(loop for out in outputs
  +		     for temp in temps
  +		     collect out
  +		     collect temp)))))
   
   (defmethod translate-simple-instruction
       ((instruction cleavir-mir:tailcall-instruction) inputs outputs)
  
positive.code: ;;; Methods on TRANSLATE-SIMPLE-INSTRUCTION.
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-mir:assignment-instruction) inputs outputs)
    `(setq ,(first outputs) ,(first inputs)))
  
  
negative.code: (defmethod translate-branch-instruction
      ((instruction cleavir-mir:eq-instruction) inputs outputs successors)
    `(if (eq ,(first inputs) ,(second inputs))
         (go ,(gethash (first successors) *tags*))
         (go ,(gethash (second successors) *tags*))))
  
  (defmethod translate-branch-instruction
      ((instruction cleavir-mir:typeq-instruction) inputs outputs successors)
    `(if (typep ,(first inputs) ',(cleavir-mir:value-type instruction))
         (go ,(gethash (first successors) *tags*))
         (go ,(gethash (second successors) *tags*))))
  
  (defmethod translate-branch-instruction
      ((instruction cleavir-mir:fixnum-add-instruction) inputs outputs successors)
  