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 2553 for branches/f4grobner


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2552 r2553  
    118118          ;; Copy all initial terms of q greater than (lt p) into p       
    119119          (do ((r q (cdr q)))
    120               ((multiple-value-bind
    121                      (greater-p equal-p)
    122                    (lex> (lt r) (lt p))
    123                  ;; Save the info about equality of last copied term
    124                  (unless greater-p
    125                    (when equal-p
    126                      (setf (lc p) (add-to (lc p) (lc q)))))
    127                  greater-p))
     120              ((cond
     121                 ((endp q))
     122                 (t
     123                  (multiple-value-bind
     124                        (greater-p equal-p)
     125                      (lex> (lt r) (lt p))
     126                    (unless greater-p
     127                      (when equal-p
     128                        (setf (lc p) (add-to (lc p) (lc q)))))
     129                    greater-p))))
    128130            (push (lt r) p))))))
    129131  self)
Note: See TracChangeset for help on using the changeset viewer.