anchor.diff:  	 ,(third inputs)))
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:short-float-aset-instruction)
  +    ((instruction cleavir-ir:simple-short-float-aset-instruction)
        inputs outputs static-environment)
     (declare (ignore static-environment))
     (declare (ignore outputs))
  
positive.code:   `(rplacd ,(first inputs) ,(second inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:t-aref-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    `(setq ,(first outputs)
  
negative.code: 	 (row-major-aref ,(first inputs) ,(second inputs))))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:simple-t-aset-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    (declare (ignore outputs))
  