- Timestamp:
- 2015-06-08T22:20:17-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r776 r777 51 51 ;; otherwise, all exponents are zero 52 52 (t (make-array (list dimension) :element-type 'exponent :initial-element 0)))) 53 coeff)) 53 (ring *ring-of-integers*) 54 (coeff (ring-unit ring)))) 54 55 ;;(:constructor make-term-variable) 55 56 ;;(:type list)
Note:
See TracChangeset
for help on using the changeset viewer.