- Timestamp:
- 2015-06-09T00:25:23-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r811 r825 55 55 (declare (fixnum nvars pos power)) 56 56 (let ((result (make-term (make-monom nvars) coeff))) 57 (setf (monom-elt resultpos) power)57 (setf (monom-elt (monom-exponents result) pos) power) 58 58 result)) 59 59
Note:
See TracChangeset
for help on using the changeset viewer.