Changeset 4018
- Timestamp:
- 2016-05-31T13:06:37-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4010 r4018 620 620 (t (list `(expt ,var ,power))))) 621 621 vars (coerce exponents 'list)))) 622 (cond ((endp (cdr m)) 623 (car m)) 622 (cond ((endp (cdr m)) (car m)) 624 623 (t 625 624 (cons '* m)))))) … … 630 629 self 631 630 (let ((m (call-next-method))) 632 (cond ((= coeff 1) m) 633 ((eql (car m) '*) 634 (setf (cdr m) (cons coeff (cdr m)))) 631 (cond ;;((= coeff 1) m) 632 ;;((eql (car m) '*) (list* '* coeff (cdr m))) 635 633 (t 636 634 (list* '* coeff m)))
Note:
See TracChangeset
for help on using the changeset viewer.