Changeset 2168
- Timestamp:
- 2015-06-17T21:58:28-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2167 r2168 131 131 (defmethod r* ((m1 monom) (m2 monom)) 132 132 "Multiply monomial M1 by monomial M2." 133 (with-slots ((exponents1 exponents) dim ension)133 (with-slots ((exponents1 exponents) dim) 134 134 m1 135 135 (with-slots ((exponents2 exponents)) … … 137 137 (let* ((exponents (copy-seq exponents1))) 138 138 (map-into exponents #'+ exponents1 exponents2) 139 (make-instance 'monom :dim dim ension:exponents exponents)))))139 (make-instance 'monom :dim dim :exponents exponents))))) 140 140 141 141
Note:
See TracChangeset
for help on using the changeset viewer.