2009/6/25 Nathan Froyd <froydnj@...>:
> On Thu, Jun 25, 2009 at 7:27 AM, Nikodemus
> Siivola<demoss@...> wrote:
>> +(deftransform expt ((x y) ((constant-arg (member -1 -1.0 -1.0d0)) integer) *)
>> + "recode as an ODDP check"
>> + (let ((val (lvar-value x)))
>> + (if (eql 1 val)
> This is never going to be true, right? The only values the transform
> will trigger for are all negative. So we never use the branchless
> version for -1. Something like (INTEGERP X) would catch the -1 case
> while leaving the negative float cases to settle for the ODDP check.
Wow, that was silly of me. Fixed in 22.214.171.124.