Andreas Eder wrote:
> changed memq to member with :test '#eq to save function call overhead and consing;
>
I thought we had agreed that memq was perfectly fine and there was no
need to replace memq with member. memq doesn't cons any more than
member would.
> changed // and quotient to truncate for integer arguments;
> this saves between 7% and 10% runtime.
>
> -(defmfun specrepp (e) (and (not (atom e)) (memq (caar e) '(mrat mpois))))
> [...1037 lines suppressed...]
> - (t (nrthk2 (mul2* -1 in) *n))))
> + (if $radexpand
> + (mul2 (nrthk2 in *n) (nrthk -1 *n))
> + (nrthk2 (mul2* -1 in) *n)))
>
>
I also thought we had agreed to try not to reindent things at the same
time as making other changes. Now we get to look at 1037 lines that
are different to see what really changed. (Yes, I know it's hard, and
I'm guilty of it too, but I try not to anymore.)
Ray