Changeset 3013
- Timestamp:
- 2015-06-21T15:57:53-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3012 r3013 168 168 ,@(when doc-string-supplied-p `(,doc-string)) 169 169 ;; Ensure orders are compatible 170 (unless (eq (poly-term-order self) (poly-term-order other)) 171 (setf (poly-termlist other) (sort (poly-termlist other) (poly-term-order self)) 172 (poly-term-order other) (poly-term-order self))) 170 (change-order other self) 173 171 (setf (poly-termlist self) (fast-add/subtract 174 172 (poly-termlist self) (poly-termlist other)
Note:
See TracChangeset
for help on using the changeset viewer.