anchor.diff:  
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  -;;; Compile a T-AREF-AST
  +;;; Compile a SIMPLE-T-AREF-AST
   
  -(defmethod compile-ast ((ast cleavir-ast:t-aref-ast) context)
  +(defmethod compile-ast ((ast cleavir-ast:simple-t-aref-ast) context)
     (check-context-for-one-value-ast context)
     (let ((temp1 (make-temp))
   	(temp2 (make-temp)))
  
positive.code: 	       (cleavir-ast:value-ast ast)
  	       (context
  		(list temp3)
  		(list (make-instance 'cleavir-ir:t-aset-instruction
  			:inputs (list temp1 temp2 temp3)
  			:outputs '()
  			:successors (successors context)))
  
negative.code:       (list (compile-ast
  	     (cleavir-ast:index-ast ast)
  	     (context (list temp2)
  		      (list (make-instance 'cleavir-ir:simple-t-aref-instruction
  			      :inputs (list temp1 temp2)
  			      :outputs (results context)
  			      :successors (successors context)))
  