Changeset 754
- Timestamp:
- 2015-06-08T21:14:19-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r753 r754 76 76 &key 77 77 (initial-exponents #() initial-exponents-supplied-p) 78 (initial-e lement #() initial-element-supplied-p)78 (initial-exponent #() initial-exponent-supplied-p) 79 79 (exponents (cond 80 80 (initial-exponents-supplied-p 81 81 (make-array (list dimension) :initial-contents initial-exponents 82 82 :element-type 'exponent)) 83 (initial-e lement-supplied-p84 (make-array (list dimension) :initial-element initial-e lement83 (initial-exponent-supplied-p 84 (make-array (list dimension) :initial-element initial-exponent 85 85 :element-type 'exponent)) 86 86 (t (make-array (list dimension) :element-type 'exponent :initial-element 0)))))))
Note:
See TracChangeset
for help on using the changeset viewer.