Changeset 4045
- Timestamp:
- 2016-05-31T16:56:42-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4043 r4045 652 652 self 653 653 (let ((m (call-next-method))) 654 (print m)655 654 (cond ((eql coeff 1) m) 656 655 ((atom m) … … 660 659 (list* '* coeff (cdr m))) 661 660 (t 662 (list *'* coeff m)))))))661 (list '* coeff m)))))))
Note:
See TracChangeset
for help on using the changeset viewer.