anchor.diff:  ;;; This instruction can be used by implementations that support the
   ;;; SHORT-FLOAT data type.
   
  -(defclass short-float-unbox-instruction (instruction one-successors-mixin)
  +(defclass short-float-unbox-instruction
  +    (instruction one-successors-mixin unbox-instruction-mixin)
     ())
   
   (defun make-short-float-unbox-instruction (input output successor)
  
positive.code: ;;; This instruction can be used by implementations that support the
  ;;; LONG-FLOAT data type.
  
  (defclass long-float-unbox-instruction (instruction one-successors-mixin)
    ())
  
  (defun make-long-float-unbox-instruction (input output successor)
  
negative.code: ;;; This instruction can be used by implementations that support the
  ;;; DOUBLE-FLOAT data type.
  
  (defclass double-float-unbox-instruction
      (instruction one-successors-mixin unbox-instruction-mixin)
    ())
  
  (defun make-double-float-unbox-instruction (input output successor)
  