Changeset 3095
- Timestamp:
- 2015-06-21T23:25:21-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3094 r3095 56 56 self)) 57 57 58 (defun alist->poly (alist &aux ( make-instance 'poly))58 (defun alist->poly (alist &aux (poly (make-instance 'poly))) 59 59 "It reads polynomial from an alist formatted as ( ... (exponents . coeff) ...)." 60 60 (dolist (x alist) 61 (insert-item p (make-instance 'term :exponents (car x) :coeff (cdr x))))61 (insert-item poly (make-instance 'term :exponents (car x) :coeff (cdr x))))) 62 62 63 63
Note:
See TracChangeset
for help on using the changeset viewer.