anchor.diff:  	 (row-major-aref ,(first inputs) ,(second inputs))))
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:t-aset-instruction) inputs outputs)
  +    ((instruction cleavir-ir:simple-t-aset-instruction) inputs outputs)
  +  (declare (ignore outputs))
  +  `(setf (row-major-aref ,(first inputs) ,(second inputs))
  +	 ,(third inputs)))
  +
  +(defmethod translate-simple-instruction
  +    ((instruction cleavir-ir:non-simple-t-aset-instruction) inputs outputs)
     (declare (ignore outputs))
     `(setf (row-major-aref ,(first inputs) ,(second inputs))
   	 ,(third inputs)))
  
positive.code: 	 ,(third inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:unsigned-byte-8-aset-instruction) inputs outputs)
    (declare (ignore outputs))
    `(setf (row-major-aref ,(first inputs) ,(second inputs))
  	 ,(third inputs)))
  
negative.code:   `(rplacd ,(first inputs) ,(second inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:simple-t-aref-instruction) inputs outputs)
    `(setq ,(first outputs)
  	 (row-major-aref ,(first inputs) ,(second inputs))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:non-simple-t-aref-instruction) inputs outputs)
    `(setq ,(first outputs)
  	 (row-major-aref ,(first inputs) ,(second inputs))))
  
  