Changeset 3296
- Timestamp:
- 2015-06-23T09:05:08-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3295 r3296 79 79 (dimension 0 dimension-supplied-p) 80 80 (exponents nil exponents-supplied-p) 81 (exponent nilexponent-supplied-p)81 (exponent 0 exponent-supplied-p) 82 82 &allow-other-keys 83 83 ) … … 101 101 (let ((dim (slot-value self 'dimension))) 102 102 (setf (slot-value self 'exponents) 103 (make-array (list dim) :initial-element (or exponent 0)103 (make-array (list dim) :initial-element exponent 104 104 :element-type 'exponent)))))) 105 105
Note:
See TracChangeset
for help on using the changeset viewer.