Changeset 3401
- Timestamp:
- 2015-08-27T09:43:14-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3400 r3401 92 92 93 93 94 (defmethod update-instance-for-different-class :after ((old monom) (new poly) &key) 95 "Converts OLD of class MONOM to a NEW of class POLY, by making it into a 1-element TERMLIST." 96 (reinitialize-instance new 97 :dimension (monom-dimension old) 98 :termlist (list (change-class old 'term))) 99 100 94 101 (defmethod update-instance-for-different-class :after ((old term) (new poly) &key) 95 102 "Converts OLD of class TERM to a NEW of class POLY, by making it into a 1-element TERMLIST." … … 97 104 :dimension (monom-dimension old) 98 105 :termlist (list old))) 99 100 (defmethod update-instance-for-different-class :after ((old monom) (new poly) &key)101 "Converts OLD of class MONOM to a NEW of class POLY, by making it into a 1-element TERMLIST."102 (reinitialize-instance new103 :dimension (monom-dimension old)104 :termlist (list (change-class old 'term)))105 106 106 107 (defmethod r-equalp ((self poly) (other poly))
Note:
See TracChangeset
for help on using the changeset viewer.