Changeset 3256
- Timestamp:
- 2015-06-22T20:43:30-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3255 r3256 286 286 287 287 (defmethod multiply-by ((self poly) (other poly)) 288 (assert (= (monom-dimension self) (monom-dimension other))) 288 (cond ((null (poly-dimension self)) 289 (setf (poly-dimension self) (monom-dimension other))) 290 (t (assert (= (monom-dimension item) (poly-dimension self))))) 289 291 (change-term-order other self) 290 292 (setf (poly-termlist self) (multiply-termlists (poly-termlist self)
Note:
See TracChangeset
for help on using the changeset viewer.