Changeset 2087 for branches/f4grobner
- Timestamp:
- 2015-06-17T19:42:28-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2086 r2087 263 263 &aux (dim (+ (dimension m1) (dimension m2)))) 264 264 (declare (fixnum dim)) 265 (with-slots (exponents1 exponents) 266 m1 267 (with-slots (exponents2 exponents) 268 m2 265 269 (make-instance 'monom :dim dim 266 :exponents (concatenate 'vector exponents1 exponents2))) 270 :exponents (concatenate 'vector exponents1 exponents2))))) 267 271 268 272 (defmethod contract ((m monom) k)
Note:
See TracChangeset
for help on using the changeset viewer.