|
@@ -701,6 +701,12 @@ The ~<polynomial-term>~ is one of the more interesting types. It's a variable,
|
|
|
:base (base expression)
|
|
|
:exponent (exponent expression))))
|
|
|
|
|
|
+ (defmethod copy-expression ((expression <polynomial-term>))
|
|
|
+ (make-instance '<polynomial-term>
|
|
|
+ :coefficient (copy-expression (slot-value expression 'coefficient))
|
|
|
+ :variable (copy-expression (slot-value expression 'variable))
|
|
|
+ :exponent (copy-expression (slot-value expression 'exponent))))
|
|
|
+
|
|
|
(defmethod update-instance-for-different-class ((prev <polynomial-term>) (current <multiplication>) &key)
|
|
|
(setf (slot-value current 'terms)
|
|
|
(terms prev)))
|