Even a non-Lisp hacker like me could figure this one out.
Seems to do the trick.
Judah
--- mactex.lisp Sun Oct 7 14:23:54 2001
+++ mymactex.lisp Sun Oct 7 14:25:14 2001
@@ -423,7 +423,7 @@
(doit (and
f ; there is such a function
(memq(getchar f 1) '(% $)) ;; insist it is a % or $ function
- (not (memq f '(%sum %product))) ;; what else? whata hack...
+ (not (memq f '(%sum %product %derivative))) ;; what else? whata hack...
(or (and(atom expon)(not(numberp expon))) ; f(x)^y is ok
(and (atom expon)(numberp expon)(> expon 0))
; f(x)^3 is ok, but not f(x)^-1, which could