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 2551


Ignore:
Timestamp:
2015-06-19T16:10:13-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2550 r2551  
    113113        (do ((p termlist1  (cdr p))
    114114             (q termlist2)
    115              last-equal)
     115             lm-equal)
    116116            ((endp p)
    117117             ;; Include remaining terms of termlist1
    … …  
    123123                   (lex> (lt r) (lt p))
    124124                 ;; Save the info about equality of last copied term
    125                  (setf last-equal equal-p)
     125                 (unless greater-p
     126                   (when equal-p
     127                     (setf (lc p) (add-to (lc p) (lc q)))))
    126128                 greater-p))
    127             (push (lt r) p))
    128           ;; Now compare leading terms of p and q
    129           (cond
    130             (last-equal
    131              ;; Simply add coefficients
    132              (setf (lc p) (add-to (lc p) (lc q)))))))))
     129            (push (lt r) p))))))
    133130  self)
    134131
Note: See TracChangeset for help on using the changeset viewer.