Raymond Toy pushed to branch issue-156-take-2-nan-comparison at cmucl / cmucl

Commits:

• 8bb4ed86
  by Raymond Toy at 2023-03-14T11:56:27-07:00

  Fix bug in two-arg->= and two-arg-<=
  
  We were handling comparisons of a ratio to an integer and vice versa
  incorrectly.  Use the floor/ceiling appropriately.
  
  Now `(kernel::two-arg->= 4e-8 1)` returns `NIL` as expected instead of
  `T`.
  

1 changed file:

• src/code/numbers.lisp

Changes:

 ;; issue #156.

 #+x86

 (progn

-  (two-arg-</> two-arg-<= <= floor ceiling

+  (two-arg-</> two-arg-<= <= ceiling floor

 	       ((fixnum bignum)

 		(bignum-plus-p y))

 	       ((bignum fixnum)

 	       ((bignum bignum)

 		(not (plusp (bignum-compare x y)))))

-  (two-arg-</> two-arg->= >= ceiling floor

+  (two-arg-</> two-arg->= >= floor ceiling

 	       ((fixnum bignum)

 		(not (bignum-plus-p y)))

 	       ((bignum fixnum)