Changeset 3342
- Timestamp:
- 2015-06-23T11:35:55-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3286 r3342 82 82 (insert-item poly (make-instance 'term :exponents (car x) :coeff (cdr x))))) 83 83 84 85 (defmethod update-instance-for-different-class :after ((old term) (new symbolic-poly) &key) 86 "Converts OLD of class TERM to a NEW of class POLY, by making it into a 1-element TERMLIST." 87 (reinitialize-instance new 88 :dimension (monom-dimension old) 89 :termlist (list old))) 84 90 85 91 (defmethod r-equalp ((self poly) (other poly))
Note:
See TracChangeset
for help on using the changeset viewer.