- Timestamp:
- 2016-06-11T08:35:41-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4445 r4446 517 517 518 518 (defmethod shared-initialize :around ((self term) slot-names &rest initargs &key (coeff 1)) 519 "A convenience method. If a coefficient is an integer or rational, wrap it in 520 the INTEGER-RING or RATIONAL-FIELD object, respectively." 519 "A convenience method, implementing auto-wrapping of integer and 520 rational coefficients into a RING object. If a coefficient is an 521 integer or rational, wrap it in the INTEGER-RING or RATIONAL-FIELD 522 object, respectively." 521 523 ;; Dispatch on the type of supplied :COEFF arg 522 524 (typecase coeff … … 529 531 530 532 (defmethod (setf term-coeff) :after (new-value (object term)) 531 "A conveniense method. If an integer or rational value is assigned to the slot, 532 it is wrapped into an INTEGER-RING or RATIONAL-FIELD object, respectively." 533 "A conveniense method, implementing auto-wrapping of integer and 534 rational coefficients into a RING object. Upon setting the COEFF slot, 535 if an integer or rational value is assigned to the slot, it is wrapped 536 into an INTEGER-RING or RATIONAL-FIELD object, respectively." 533 537 (with-slots (coeff) 534 538 object
Note:
See TracChangeset
for help on using the changeset viewer.