Changeset 3246
- Timestamp:
- 2015-06-22T20:32:37-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3245 r3246 130 130 131 131 (defmethod multiply-by ((self poly) (other monom)) 132 (assert (= (monom-dimension self) (poly-dimension other))) 132 133 (mapc #'(lambda (term) (multiply-by term other)) 133 134 (poly-termlist self)) … … 135 136 136 137 (defmethod multiply-by ((self poly) (other term)) 138 (assert (= (monom-dimension self) (monom-dimension other))) 137 139 (mapc #'(lambda (term) (multiply-by term other)) 138 140 (poly-termlist self)) … … 140 142 141 143 (defmethod multiply-by ((self poly) (other scalar)) 144 (assert (= (monom-dimension self) (monom-dimension other))) 142 145 (mapc #'(lambda (term) (multiply-by term other)) 143 146 (poly-termlist self))
Note:
See TracChangeset
for help on using the changeset viewer.