Changeset 3582
- Timestamp:
- 2015-09-05T17:04:20-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3581 r3582 536 536 (setf (term-coeff self) (divide-by (term-coeff self) (term-coeff other)))) 537 537 538 (defmethod monom-unary-minus ((self term)) 539 (setf (term-coeff self) (monom-unary-minus (term-coeff self))) 540 self) 538 (defgeneric unary-minus (self) 539 (:method ((self term)) 540 (setf (term-coeff self) (unary-minus (term-coeff self))) 541 self)) 541 542 542 543 (defgeneric universal-zerop (self)
Note:
See TracChangeset
for help on using the changeset viewer.