Changeset 845
- Timestamp:
- 2015-06-09T08:40:55-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r844 r845 75 75 ;; NOTE: having a non-default constructor inhibits reading via #S(...) 76 76 (:constructor make-monom (&key 77 (dim 0)77 (dimension 0) 78 78 (initial-exponents #() initial-exponents-supplied-p) 79 79 (initial-exponent #() initial-exponent-supplied-p) … … 82 82 ;; when exponents are supplied 83 83 (initial-exponents-supplied-p 84 (make-array (list dim ) :initial-contents initial-exponents84 (make-array (list dimension) :initial-contents initial-exponents 85 85 :element-type 'exponent)) 86 86 ;; when all exponents are to be identical 87 87 (initial-exponent-supplied-p 88 (make-array (list dim ) :initial-element initial-exponent88 (make-array (list dimension) :initial-element initial-exponent 89 89 :element-type 'exponent)) 90 90 ;; otherwise, all exponents are zero 91 (t (make-array (list dim ) :element-type 'exponent :initial-element 0))))))91 (t (make-array (list dimension) :element-type 'exponent :initial-element 0)))))) 92 92 ) 93 93 (exponents nil :type (vector exponent *)))
Note:
See TracChangeset
for help on using the changeset viewer.