(math-poly-base-top-expr): New variable. (math-polynomial-p1): Replace variable mpb-top-expr by declared variable. (math-poly-base-total-base): New variable. (math-total-polynomial-base, math-polynomial-p1): Replace variable mpb-total-base by declared variable. (math-factored-vars, math-to-list): Declare it. (math-fact-expr): New variable. (calcFunc-factors, calcFunc-factor, math-factor-expr, math-factor-expr-try, math-factor-expr-part): Replace variable expr by declared variable. (math-fet-x): New variable. (math-factor-expr-try, math-factor-poly-coefs): Replace variable x by declared variable. (math-factor-poly-coefs): Make temp a local variable.