Changeset 2283
- Timestamp:
- 2015-06-18T14:22:35-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2276 r2283 48 48 (slot-value self 'coeff))) 49 49 50 (defun make-term (&key 51 (exponents nil exponents-supplied-p) 52 (monom nil monom-supplied-p) 53 coeff 54 &aux 55 (exponents 56 (cond (monom-supplied-p (monom-coefficients monom)) 57 (exponents-supplied-p exponents) 58 (t (error "Either COEFFICIENTS or MONOM must be supplied."))))) 59 (make-instance 'term :exponents exponents :coeff coeff)) 50 (defun initialize-instance ((self term) 51 &key 52 dimension 53 exponents 54 coef 55 monom) 56 (setf (slot-value self 'coeff) coeff)) 60 57 61 58 (defun make-term-variable (nvars pos
Note:
See TracChangeset
for help on using the changeset viewer.