(not (memq (car expr) '(+ - * /))
もいらないだろ。
一回変換したやつを省いているだけだろ。