Changeset 3009
- Timestamp:
- 2015-06-21T15:51:12-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2949 r3009 237 237 238 238 (defmethod multiply-by ((self poly) (other poly)) 239 (unless (eq (poly-term-order self) (poly-term-order other)) 240 (setf (poly-termlist other) (sort (poly-termlist other) (poly-term-order self)) 241 (poly-term-order other) (poly-term-order self))) 239 242 (setf (poly-termlist self) (multiply-termlists (poly-termlist self) 240 243 (poly-termlist other)
Note:
See TracChangeset
for help on using the changeset viewer.