- Timestamp:
- 2015-06-08T22:17:21-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r774 r775 68 68 defaults to the unit of the RING." 69 69 (declare (fixnum nvars pos power)) 70 (let ((result (make-term nvars )))70 (let ((result (make-term nvars :coeff coeff))) 71 71 (setf (monom-elt result pos) power) 72 72 result))
Note:
See TracChangeset
for help on using the changeset viewer.