Changeset 2269
- Timestamp:
- 2015-06-18T14:00:03-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2268 r2269 75 75 ) 76 76 (format t "INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args) 77 (let* ((new-dimension (cond (dimension -suppied-pdimension)78 (exponents -supplied-p77 (let* ((new-dimension (cond (dimension dimension) 78 (exponents 79 79 (length exponents)) 80 80 (t 81 (error " You must provide DIMENSION or EXPONENTS"))))81 (error "DIMENSION or EXPONENTS must not be NIL")))) 82 82 (new-exponents (cond 83 83 ;; when exponents are supplied 84 (exponents-supplied-p 85 (make-array (list new-dimension) :initial-contents exponents 86 :element-type 'exponent)) 84 (exponents 85 (make-array (list new-dimension) :initial-contents exponents)) 87 86 ;; when all exponents are to be identical 88 (exponent -supplied-p87 (exponent 89 88 (make-array (list new-dimension) :initial-element exponent 90 89 :element-type 'exponent))
Note:
See TracChangeset
for help on using the changeset viewer.