close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 788


Ignore:
Timestamp:
2015-06-08T22:34:48-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/termlist.lisp

    r787 r788  
    129129  (declare (ring ring))
    130130  (mapcar #'(lambda (x)
    131               (make-term :monom (term-monom x)
    132                          :coeff (funcall (ring-uminus ring) (term-coeff x))))
     131              (make-term (term-monom x) (funcall (ring-uminus ring) (term-coeff x))))
    133132          f))
    134133
     
    149148             (let ((s (funcall (ring-add ring) (termlist-lc p) (termlist-lc q))))
    150149               (unless (funcall (ring-zerop ring) s)    ;check for cancellation
    151                  (setf r (cons (make-term :monom (termlist-lm p) :coeff s) r)))
     150                 (setf r (cons (make-term (termlist-lm p) s) r)))
    152151               (setf p (cdr p) q (cdr q))))
    153152            (lm-greater
     
    177176             (let ((s (funcall (ring-sub ring) (termlist-lc p) (termlist-lc q))))
    178177               (unless (funcall (ring-zerop ring) s)    ;check for cancellation
    179                  (setf r (cons (make-term :monom (termlist-lm p) :coeff s) r)))
     178                 (setf r (cons (make-term (termlist-lm p) s) r)))
    180179               (setf p (cdr p) q (cdr q))))
    181180            (mgreater
    182181             (setf r (cons (car p) r)
    183182                   p (cdr p)))
    184             (t (setf r (cons (make-term :monom (termlist-lm q)
    185                                         :coeff (funcall (ring-uminus ring) (termlist-lc q))) r)
     183            (t (setf r (cons (make-term (termlist-lm q)
     184                                        (funcall (ring-uminus ring) (termlist-lc q))) r)
    186185                     q (cdr q)))))
    187186         nil))
Note: See TracChangeset for help on using the changeset viewer.