Changeset 4242 for branches/f4grobner/monom.lisp
- Timestamp:
- 2016-06-04T19:52:24-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4241 r4242 531 531 and powers of some variables, such as 5*X^2*Y^3.")) 532 532 533 (defmethod initialize-instance :around ((self term)&rest initargs &key (coeff 1))533 (defmethod shared-initialize :around ((self term) slot-names &rest initargs &key (coeff 1)) 534 534 "A convenience method. If a coefficient is an integer, wrap it in the INTEGER-RING object" 535 ;; Dispatch on supplied type of coefficient535 ;; Dispatch on the type of supplied :COEFF arg 536 536 (typecase coeff 537 537 (integer 538 538 (setf (getf initargs :coeff) (make-instance 'integer-ring :value coeff)))) 539 539 ;; Now pass new initargs to the next method 540 (apply #'call-next-method (cons self initargs))) 540 (apply #'call-next-method (list* self slot-names initargs))) 541 541 542 542 543 (defmethod update-instance-for-different-class :after ((old monom) (new term) &key coeff)
Note:
See TracChangeset
for help on using the changeset viewer.