anchor.diff:  (defun sys.int::generic-<= (x y)
     (not (sys.int::generic-< y x)))
   
  -(sys.int::define-lap-function %%float-= ()
  +(sys.int::define-lap-function sys.int::%%float-= ()
     ;; Unbox the floats.
     (sys.lap-x86:mov64 :rax :r8)
     (sys.lap-x86:shr64 :rax 32)
  
positive.code:     (ratio (/ (float (numerator number) prototype)
                (float (denominator number) prototype)))))
  
  (sys.int::define-lap-function %%float-< ()
    ;; Unbox the floats.
    (sys.lap-x86:mov64 :rax :r8)
    (sys.lap-x86:shr64 :rax 32)
  
negative.code:                   (floatp y))
               (and (floatp x)
                    (floatp y)))
           (sys.int::%%float-/ (float x) (float y)))
          (t (sys.int::full-/ x y))))
  
  (sys.int::define-lap-function sys.int::%%float-+ ()
    ;; Unbox the floats.
    (sys.lap-x86:mov64 :rax :r8)
    (sys.lap-x86:shr64 :rax 32)
  