Changeset 763
- Timestamp:
- 2015-06-08T21:37:57-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r762 r763 78 78 (initial-exponent #() initial-exponent-supplied-p) 79 79 (exponents (cond 80 ;; When exponents are supplied80 ;; when exponents are supplied 81 81 (initial-exponents-supplied-p 82 82 (make-array (list dimension) :initial-contents initial-exponents 83 83 :element-type 'exponent)) 84 ;; When all exponents are to be identical84 ;; when all exponents are to be identical 85 85 (initial-exponent-supplied-p 86 86 (make-array (list dimension) :initial-element initial-exponent 87 87 :element-type 'exponent)) 88 ;; Otherwise, all exponents are zero88 ;; otherwise, all exponents are zero 89 89 (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))))) 90 90 (exponents nil :type (vector exponent *)))
Note:
See TracChangeset
for help on using the changeset viewer.