(in-package :polynomial)
(setf p (make-instance 'poly :termlist (list (make-instance 'term :exponents '(1 2 3) :coeff 7))))