Changeset 3321
- Timestamp:
- 2015-06-23T10:11:34-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3319 r3321 87 87 (let ((dim (length exponents))) 88 88 (setf (slot-value self 'exponents) (make-array dim :initial-contents exponents)))) 89 ( t89 (dimension-supplied-p 90 90 ;; when all exponents are to be identical 91 (cond 92 (dimension-supplied-p 93 (setf (slot-value self 'exponents) 94 (make-array (list dimension) :initial-element exponent 95 :element-type 'exponent))) 96 (t 97 (error "Initarg DIMENSION must be supplied if EXPONENT is supplied.")))))) 91 (setf (slot-value self 'exponents) (make-array (list dimension) 92 :initial-element exponent 93 :element-type 'exponent))) 94 (t 95 (error "Initarg DIMENSION or EXPONENTS must be supplied.")))) 98 96 99 97 (defmethod monom-dimension ((m monom))
Note:
See TracChangeset
for help on using the changeset viewer.