anchor.diff:  ;;; element to be read.  The third input is assumed to be an unboxed
   ;;; SHORT-FLOAT to be stored as an element in the array.
   
  -(defclass short-float-aset-instruction (instruction one-successor-mixin)
  +(defclass short-float-aset-instruction
  +    (instruction one-successor-mixin side-effect-mixin)
     ())
   
   (defun make-short-float-aset-instruction (input1 input2 input3 successor)
  
positive.code: ;;; element to be read.  The third input is assumed to be an unboxed
  ;;; SINGLE-FLOAT to be stored as an element in the array.
  
  (defclass single-float-aset-instruction (instruction one-successor-mixin)
    ())
  
  (defun make-single-float-aset-instruction (input1 input2 input3 successor)
  
negative.code: ;;; element to be read.  The third input is assumed to be an unboxed
  ;;; LONG-FLOAT to be stored as an element in the array.
  
  (defclass long-float-aset-instruction
      (instruction one-successor-mixin side-effect-mixin)
    ())
  
  (defun make-long-float-aset-instruction (input1 input2 input3 successor)
  