Примеры многочленов

(setq p1 (make-instance 'polynom ; 5x^2 + 3.3x - 7
          :var 'x
          :terms (list (make-term :order 2 :coeff 5)
                       (make-term :order 1 :coeff 3.3)
                       (make-term :order 0 :coeff -7))))
[МЧ (X) +5X^2+3.3X-7]                        
(setq p2 (make-instance 'polynom ; x^3 + 2x + 1
          :var 'x
          :terms (list (make-term :coeff 1 :order 3)
                       (make-term :coeff 2 :order 1)
                       (make-term :coeff 1 :order 0))))
[МЧ (X) +1X^3+2X+1]

Ключевые аргументы :order и :coeff могут указываться в произвольном порядке.