Changeset 2807 for branches/f4grobner
- Timestamp:
- 2015-06-20T22:02:40-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2806 r2807 137 137 138 138 (defmethod multiply-by ((self monom) (other monom)) 139 (with-slots ((exponents1 exponents) )139 (with-slots ((exponents1 exponents) (dimension1 dimension)) 140 140 self 141 (with-slots ((exponents2 exponents) )141 (with-slots ((exponents2 exponents) (dimension2 dimension))) 142 142 other 143 (map-into exponents1 #'+ exponents1 exponents2))) 143 (unless (= dimension1 dimension2) 144 (error "Incompatible dimensions: ~A and ~A.~%" dimension1 and dimension2)) 145 (map-into exponents1 #'+ exponents1 exponents2)) 144 146 self) 145 147
Note:
See TracChangeset
for help on using the changeset viewer.