anchor.diff:  ;;; It can be used by an implementation that supports the SHORT-FLOAT
   ;;; data type.
   
  -(define-two-arg-float-ast short-float-less-ast)
  +(define-float-comparison-ast short-float-less-ast)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code: ;;; It can be used by an implementation that supports the SHORT-FLOAT
  ;;; data type.
  
  (define-two-arg-float-ast short-float-not-greater-ast)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: ;;; It can be used by an implementation that supports the LONG-FLOAT
  ;;; data type.
  
  (define-float-comparison-ast long-float-not-less-ast)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  