Changeset 3318
- Timestamp:
- 2015-06-23T10:05:59-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3317 r3318 78 78 (dimension 0 dimension-supplied-p) 79 79 (exponents nil exponents-supplied-p) 80 (exponent 0 exponent-supplied-p)80 (exponent 0) 81 81 &allow-other-keys 82 82 ) … … 89 89 (let ((dim (length exponents))) 90 90 (setf (slot-value self 'exponents) (make-array dim :initial-contents exponents)))) 91 ( exponent-supplied-p91 (t 92 92 ;; when all exponents are to be identical 93 93 (cond 94 94 (dimension-supplied-p 95 95 (setf (slot-value self 'exponents) 96 (make-array (list dimension) :initial-element (if exponent-supplied-p exponent 0)96 (make-array (list dimension) :initial-element exponent 97 97 :element-type 'exponent))) 98 98 (t
Note:
See TracChangeset
for help on using the changeset viewer.