Changeset 4331
- Timestamp:
- 2016-06-05T19:03:33-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4329 r4331 249 249 (multiply-by other self)) 250 250 251 #| 251 252 (defmethod multiply-by ((self term) (other poly)) 252 253 "Multiply a term SELF by polynomial OTHER." 253 254 (multiply-by other self)) 255 |# 254 256 255 257 (defmacro fast-add/subtract (p q order-fn add/subtract-fn uminus-fn) … … 427 429 order-fn))))) 428 430 429 (defmethod multiply-by ((self poly) (other poly) )430 (change-term-order other self)431 (defmethod multiply-by ((self poly) (other poly) &aux (other-copy (copy-instance other))) 432 (change-term-order other-copy self) 431 433 (setf (poly-termlist self) (multiply-termlists (poly-termlist self) 432 (poly-termlist other )434 (poly-termlist other-copy) 433 435 (poly-term-order self))) 434 436 self)
Note:
See TracChangeset
for help on using the changeset viewer.