[Sbcl-devel] Re: Bug related to double-float-epsilon

[Peter G. <pe...@ar...>]

> +	(if (zerop rem)
> +	    (values (if (minusp tru) -1 1) rem)
> +	    (let ((thresh (/ (abs divisor) 2)))
> +	      (cond ((or (> rem thresh)
> +			 (and (= rem thresh) (oddp tru)))
> +		     (if (minusp divisor)
> +			 (values (- tru 1) (+ rem divisor))
> +			 (values (+ tru 1) (- rem divisor))))
> +		    ((let ((-thresh (- thresh)))
> +		       (or (< rem -thresh)
> +			   (and (= rem -thresh) (oddp tru))))
> +		     (if (minusp divisor)
> +			 (values (+ tru 1) (- rem divisor))
> +			 (values (- tru 1) (+ rem divisor))))
> +		    (t (values tru rem))))))))

Shouldn't this be:

    (if (zerop rem)
        (values tru rem)
        ...

-Peter