Changeset 3521
- Timestamp:
- 2015-09-05T14:49:19-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3520 r3521 79 79 (:method ((self poly) (other poly)) 80 80 (unless (eq (poly-term-order self) (poly-term-order other)) 81 (setf (poly-termlist self) (sort (poly-termlist self) (poly-term-order other) )81 (setf (poly-termlist self) (sort (poly-termlist self) (poly-term-order other) :key #'car) 82 82 (poly-term-order self) (poly-term-order other))) 83 83 self))
Note:
See TracChangeset
for help on using the changeset viewer.