Changeset 2256
- Timestamp:
- 2015-06-18T13:29:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2255 r2256 75 75 ) 76 76 ;;(format t "INITIALIZE-INSTANCE called with:~&~TSELF:~W ~&~TARGS: ~W.~%" self args) 77 (let ((new-dimension (cond (dimension-suppied-p dimension)77 (let* ((new-dimension (cond (dimension-suppied-p dimension) 78 78 (exponents-supplied-p 79 79 (length exponents)) … … 87 87 ;; when all exponents are to be identical 88 88 (exponent-supplied-p 89 (make-array (list dimension) :initial-element exponent89 (make-array (list new-dimension) :initial-element exponent 90 90 :element-type 'exponent)) 91 91 ;; otherwise, all exponents are zero 92 92 (t 93 (make-array (list dimension) :element-type 'exponent :initial-element 0)))))93 (make-array (list new-dimension) :element-type 'exponent :initial-element 0))))) 94 94 (call-next-method :dimension new-dimension :exponents new-exponents))) 95 95
Note:
See TracChangeset
for help on using the changeset viewer.