anchor.diff:  	 (row-major-aref ,(first inputs) ,(second inputs))))
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:single-float-aref-instruction)
  +    ((instruction cleavir-ir:simple-single-float-aref-instruction)
        inputs outputs static-environment)
     (declare (ignore static-environment))
     `(setq ,(first outputs)
   	 (row-major-aref ,(first inputs) ,(second inputs))))
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:double-float-aref-instruction)
  +    ((instruction cleavir-ir:simple-double-float-aref-instruction)
        inputs outputs static-environment)
     (declare (ignore static-environment))
     `(setq ,(first outputs)
   	 (row-major-aref ,(first inputs) ,(second inputs))))
   
   (defmethod translate-simple-instruction
  -    ((instruction cleavir-ir:long-float-aref-instruction)
  +    ((instruction cleavir-ir:simple-long-float-aref-instruction)
        inputs outputs static-environment)
     (declare (ignore static-environment))
     `(setq ,(first outputs)
  
positive.code: 	 ,(third inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:bit-aset-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    (declare (ignore outputs))
  
negative.code: 	 ,(third inputs)))
  
  (defmethod translate-simple-instruction
      ((instruction cleavir-ir:simple-unsigned-byte-8-aset-instruction)
       inputs outputs static-environment)
    (declare (ignore static-environment))
    (declare (ignore outputs))
  