Changeset 720
- Timestamp:
- 2015-06-08T19:27:21-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r719 r720 73 73 (defstruct (monom) 74 74 (dim 0 :type fixnum) 75 (exponents (make-array 0) :type (simple-vector *))) 76 75 (exponents (make-array 0) :type (simple-vector *)) 76 (:constructor make-monom (dim &key 77 (initial-contents nil initial-contents-supplied-p) 78 (initial-element 0 initial-element-supplied-p) 79 ) 80 ) 81 ) 82 77 83 ;; ,@(when initial-contents-supplied-p `(:initial-contents ,initial-contents)) 78 84 ;; ,@(when initial-element-supplied-p `(:initial-element ,initial-element)))))
Note:
See TracChangeset
for help on using the changeset viewer.