Changeset 3620
- Timestamp:
- 2015-09-05T20:12:31-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3619 r3620 81 81 (:method ((self poly) (other poly)) 82 82 (unless (eq (poly-term-order self) (poly-term-order other)) 83 (setf (poly-termlist self) (sort (poly-termlist self) (poly-term-order other) :key #'car)83 (setf (poly-termlist self) (sort (poly-termlist self) (poly-term-order other)) 84 84 (poly-term-order self) (poly-term-order other))) 85 85 self))
Note:
See TracChangeset
for help on using the changeset viewer.