Changeset 4517 for branches/f4grobner
- Timestamp:
- 2016-06-17T12:31:47-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial-sugar.lisp
r4516 r4517 68 68 (defclass poly-with-sugar (poly sugar) ()) 69 69 70 (defmethod print-object ((self poly-with-sugar) stream) 71 (print-unreadable-object (self stream :type t :identity t) 72 (with-accessors ((termlist poly-termlist) 73 (order poly-term-order) 74 (value sugar-value)) 75 self 76 (format stream "TERMLIST=~A ORDER=~A SUGAR=~A" 77 termlist order value)))) 78 79 70 80 (defmethod shared-initialize :after ((self poly-with-sugar) slot-names &rest initargs &key) 71 81 "Initialize sugar to its static value, which is the maximum of sugar values of the terms."
Note:
See TracChangeset
for help on using the changeset viewer.