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


Ignore:
Timestamp:
2015-06-20T02:41:11-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2627 r2628  
    9797    (do ((p p)
    9898         (q q))
    99         ((or (endp (cdr p)) (endp (cdr q))))
     99        ((or (endp (cdr p)) (endp (cdr q)))
     100         (when (endp (cdr p))
     101           (setf (cdr p) (cdr q))))
    100102      (multiple-value-bind
    101103            (greater-p equal-p)
Note: See TracChangeset for help on using the changeset viewer.