anchor.diff:  			       (let ((cell-location (fetch-cell instruction
   								owner
   								output)))
  -				 ;; We must now change the current output
  -				 ;; to a temporary dynamic lexical
  -				 ;; location, and then add a WRITE-CELL
  -				 ;; instruction to write the contents of
  -				 ;; that temporary location to the cell.
  -				 (let ((temp (cleavir-ir:new-temporary)))
  -				   (cleavir-ir:insert-instruction-after
  -				    (cleavir-ir:make-write-cell-instruction
  -				     cell-location temp)
  -				    instruction)
  -				   ;; Return the new input to this
  -				   ;; instruction.
  -				   temp))))
  +				 ;; We must now change the current
  +				 ;; output to a temporary dynamic
  +				 ;; lexical location, and then add a
  +				 ;; WRITE-CELL instruction after this
  +				 ;; one to write the contents of that
  +				 ;; temporary location to the cell.
  +				 (new-output instruction cell-location))))
   			 ;; This input is not a captured variable,
   			 ;; return it unchanged.
   			 output)))))
  
positive.code: 		(change-class
  		 datum
  		 'cleavir-ir:dynamic-lexical-location))))))
  
  (defun process-captured-variables (initial-instruction)
    (segregate-lexicals initial-instruction)
  
negative.code: 				    (cleavir-ir:make-create-cell-instruction
  				     location)
  				    instruction))
  				 ;; We must now change the current
  				 ;; output to a temporary dynamic
  				 ;; lexical location, and then add a
  				 ;; WRITE-CELL instruction after this
  				 ;; one to write the contents of that
  				 ;; temporary location to the cell.
  				 (new-output instruction location))
  			       ;; the owner if this instruction is not the
  			       ;; owner of the captured variable.  We need
  			       ;; to fetch the cell from our static
  