Changeset 3011
- Timestamp:
- 2015-06-21T15:56:51-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3010 r3011 46 46 47 47 (defgeneric change-order (self other) 48 (:documentation "Change term order of SELF to the term order of OTHER." 48 49 (:method ((self poly) (other poly)) 49 50 (unless (eq (poly-term-order self) (poly-term-order other)) 50 51 (setf (poly-termlist self) (sort (poly-termlist self) (poly-term-order other)) 51 52 (poly-term-order self) (poly-term-order other))) 52 self)) 53 self))) 53 54 54 55 (defmethod r-equalp ((self poly) (other poly))
Note:
See TracChangeset
for help on using the changeset viewer.