Changeset 2138 for branches/f4grobner
- Timestamp:
- 2015-06-17T21:02:12-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2137 r2138 241 241 (with-slots (exponents) 242 242 m 243 (plusp ( elt exponents k))))243 (plusp (cl:elt exponents k)))) 244 244 245 245 (defmethod ring-tensor-mul ((m1 monom) (m2 monom) … … 272 272 (with-slots (exponents) 273 273 m 274 (setf ( elt exponents pos) power)274 (setf (cl:elt exponents pos) power) 275 275 m)) 276 276
Note:
See TracChangeset
for help on using the changeset viewer.