anchor.diff:  ;;; Methods on TRANSLATE-SIMPLE-INSTRUCTION.
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:enclose-instruction) inputs outputs)
  +    ((instruction cleavir-ir:enclose-instruction)
  +     inputs outputs static-environment)
  +  (declare (ignore static-environment))
     (declare (ignore inputs))
     (let* ((enter-instruction (cleavir-ir:code instruction))
   	 (temp (gensym))
  
positive.code: 	     ,temp))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:enter-instruction) inputs outputs)
    (declare (ignore inputs outputs))
    (gensym))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:assignment-instruction) inputs outputs)
    `(setq ,(first outputs) ,(first inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:funcall-instruction) inputs outputs)
    (let* ((owner (gethash instruction *instruction-ownerships*))
  	 (var (gethash owner *dynamic-environment-variables*)))
      `(progn (setf *dynamic-environment* ,var)
  
negative.code: 					,@(rest inputs)))))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:multiple-value-call-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    `(setf ,(first outputs)
  	 (multiple-value-list
  	  (apply ,(first inputs)
  		 (append ,@(rest inputs))))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:tailcall-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    (declare (ignore outputs))
    (let* ((owner (gethash instruction *instruction-ownerships*))
  	 (var (gethash owner *dynamic-environment-variables*)))
  