Changeset 4504 for branches/f4grobner
- Timestamp:
- 2016-06-17T10:46:01-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial-sugar.lisp
r4502 r4504 17 17 18 18 (defmethod shared-initialize :after ((self monom-with-sugar) slot-names &rest initargs &key) 19 "Initialize sugar value based on the exponents "19 "Initialize sugar value based on the exponents." 20 20 (declare (ignore slot-names initargs)) 21 (setf (slot-value self 'value) (s ugar self)))21 (setf (slot-value self 'value) (static-sugar self))) 22 22 23 23
Note:
See TracChangeset
for help on using the changeset viewer.