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


Ignore:
Timestamp:
2015-06-20T15:35:02-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2656 r2657  
    112112        (cond
    113113          (greater-p
    114            (psetf (cdr p) r
    115                   r p
    116                   p (cdr p))
     114           (rotatef (cdr p) r p)
    117115           )
    118116          (equal-p
     
    120118             (unless (r-zerop s)
    121119               (setf (lc p) s)
    122                (psetf p (cdr p)
    123                       (cdr p) r
    124                       r p)))
     120               (rotatef cdr p) r p))
    125121           (setf q (cdr q))
    126122           )
    127123          (t
    128            (psetf q (cdr q)
    129                   (cdr q) r
    130                   r q)))))))
     124           (rotatef (cdr q) r q)))))))
    131125
    132126
Note: See TracChangeset for help on using the changeset viewer.