Changeset 2212
- Timestamp:
- 2015-06-18T09:54:06-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2211 r2212 79 79 (length exponents)) 80 80 (t 81 (error "You must provide DIMENSION or EXPONENTS"))) )82 83 ;; when exponents are supplied84 (exponents-supplied-p85 86 87 88 89 90 ;; when all exponents are to be identical91 (exponent-supplied-p92 93 94 ;; otherwise, all exponents are zero95 (t96 81 (error "You must provide DIMENSION or EXPONENTS"))) 82 (slot-value self 'exponents) (cond 83 ;; when exponents are supplied 84 (exponents-supplied-p 85 (when (and dimension-suppied-p 86 (/= dimension (length exponents))) 87 (error "EXPONENTS must have length DIMENSION")) 88 (make-array (list dimension) :initial-contents exponents 89 :element-type 'exponent)) 90 ;; when all exponents are to be identical 91 (exponent-supplied-p 92 (make-array (list dimension) :initial-element exponent 93 :element-type 'exponent)) 94 ;; otherwise, all exponents are zero 95 (t 96 (make-array (list dimension) :element-type 'exponent :initial-element 0))))) 97 97 98 98 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.