- Timestamp:
- 2016-06-03T19:41:58-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4191 r4193 703 703 704 704 (defgeneric make-zero-for (self) 705 (:method ((self number)) 0) 705 706 (:method ((self poly)) 706 707 (make-instance 'poly :dimension (poly-dimension self)))) 707 708 708 709 (defgeneric make-unit-for (self) 710 (:method ((self number)) 1) 709 711 (:method ((self poly)) 710 712 (make-poly-constant (poly-dimension self) 1)))
Note:
See TracChangeset
for help on using the changeset viewer.