- Timestamp:
- 2016-06-17T18:06:13-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial-sugar.lisp
r4520 r4522 63 63 exponents coeff value)))) 64 64 65 (defmethod shared-initialize :after ((self term-with-sugar) slot-names &rest initargs &key) 66 (declare (ignore slot-names initargs)) 67 (setf (slot-value self 'value) (static-sugar self))) 68 69 65 70 (defmethod update-instance-for-different-class :after ((old term) (new term-with-sugar) &key) 66 71 "Add sugar."
Note:
See TracChangeset
for help on using the changeset viewer.