Changeset 2414
- Timestamp:
- 2015-06-18T23:05:48-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2412 r2414 134 134 (r-total-degree m start end)) 135 135 136 (defmethod r* :around((m1 monom) (m2 monom))136 (defmethod r* ((m1 monom) (m2 monom)) 137 137 "Multiply monomial M1 by monomial M2." 138 138 (with-slots ((exponents1 exponents) dimension) … … 142 142 (let* ((exponents (copy-seq exponents1))) 143 143 (map-into exponents #'+ exponents1 exponents2) 144 (make-instance 'monom :dimension dimension :exponents exponents)))) 145 (call-next-method)) 144 (make-instance 'monom :dimension dimension :exponents exponents))))) 146 145 147 146
Note:
See TracChangeset
for help on using the changeset viewer.