- Timestamp:
- 2016-05-31T16:30:55-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4038 r4039 653 653 (let ((m (call-next-method))) 654 654 (cond ((eql coeff 1) m) 655 ((atom m) m)656 655 ((eql (car m) '*) (list* '* coeff (cdr m))) 657 656 (t
Note:
See TracChangeset
for help on using the changeset viewer.