- Timestamp:
- 2016-05-31T18:25:23-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4059 r4060 683 683 684 684 (defgeneric poly-nreverse (self) 685 (:documentation " Reverse the order of terms in a polynomial SELF.")685 (:documentation "Destructively reverse the order of terms in a polynomial SELF.") 686 686 (:method ((self poly)) 687 687 (with-slots (termlist) 688 688 self 689 ( nreverse termlist))689 (setf termlist (nreverse termlist))) 690 690 self)) 691 691
Note:
See TracChangeset
for help on using the changeset viewer.