Given all this, I think we should do member --> memq (again).
And by the way, except for simplifya and friends, looking at the simp
flag of an expression is mostly naughty, I think. I created (and with some
help fixed) bugs in min, max, set, and ... by peeking at the simp
flag.
Barton
-----maxima-bounces at math.utexas.edu wrote: -----
>(defmacro simp-flaggedp (x)
> `(let ((cdarx (cdar ,x)))
> (if cdarx
> (or (eq (car cdarx) 'simp)
> (memq 'simp cdarx))
> ;;Function call rarely called, so use a shorter but
> ;; slower code sequence in this case rather than member
> ;; which gives an inline loop
> nil)))
>