Многочлены в качестве коэффициентов

Благодаря тому, что коэффициенты мы вычисляли с помощью обобщённых функций zerop1, add2 и mul2, потребуются лишь два метода. Причем minusp1 нужен только для распечатки.

(defmethod minusp1 ((p polynom))
   nil)
(defmethod zerop1 ((p polynom))
  (null (terms p)))