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 2591


Ignore:
Timestamp:
2015-06-20T00:31:53-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2589 r2591  
    8686  self)
    8787
    88 ;; Fast destructive addition of termlists
    8988(defun fast-add-to (p q)
     89  "Fast destructive addition of termlists
     90Note that this assumes the presence of a
     91dummy header."
    9092  (macrolet ((lt (x) `(cadr ,x))
    9193             (lc (x) `(r-coeff (cadr ,x))))
     
    117119    (with-slots ((termlist2 termlist))
    118120        other
     121      ;; Create dummy head
    119122      (push nil termlist1)
    120123      (push nil termlist2)
    121124      (fast-add-to termlist1 termlist2)
    122       (pop termlist)))
     125      ;; Remove dummy head
     126      (pop termlist1)))
    123127  self)
    124128
Note: See TracChangeset for help on using the changeset viewer.