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: 					,@(rest inputs)))))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:multiple-value-call-instruction) inputs outputs)
    `(setf ,(first outputs)
  	 (multiple-value-list
  	  (apply ,(first inputs)
  		 (append ,@(rest inputs))))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:tailcall-instruction) inputs outputs)
    (declare (ignore outputs))
    (let* ((owner (gethash instruction *instruction-ownerships*))
  	 (var (gethash owner *dynamic-environment-variables*)))
  
negative.code: 		  for output-vars = (mapcar #'translate-datum outputs)
  		  until (eq instruction last)
  		  collect (translate-simple-instruction
  			   instruction input-vars output-vars nil))
  	    (let* ((inputs (cleavir-ir:inputs last))
  		   (input-vars (mapcar #'translate-datum inputs))
  		   (outputs (cleavir-ir:outputs last))
  