Changeset 3786
- Timestamp:
- 2016-05-27T21:16:20-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3784 r3786 125 125 (poly-insert-term poly (make-instance 'term :exponents (car x) :coeff (cdr x))))) 126 126 127 (defmethod update-instance-for-different-class :after ((old monom) (new poly) &key)128 "Converts OLD of class MONOM to a NEW of class POLY, by making it into a 1-element TERMLIST."127 (defmethod update-instance-for-different-class :after ((old term) (new poly) &key) 128 "Converts OLD of class TERM to a NEW of class POLY, by making it into a 1-element TERMLIST." 129 129 (reinitialize-instance new 130 130 :dimension (monom-dimension old) 131 :termlist (list (make-instance 'term :exponents old :coeff 1))))131 :termlist (list old))) 132 132 133 133 (defmethod universal-equalp ((self poly) (other poly))
Note:
See TracChangeset
for help on using the changeset viewer.