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 2605


Ignore:
Timestamp:
2015-06-20T01:17:39-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2604 r2605  
    120120The result is stored in SELF. This implementation does
    121121no consing, entirely reusing the sells of SELF and OTHER."
    122     (with-slots ((termlist1 termlist) (order1 order))
    123         self
    124       (with-slots ((termlist2 termlist) (order2 order))
    125           other
    126         ;; Ensure orders are compatible
    127         (unless (eq order1 order2)
    128           (setf termlist2 (sort termlist2 order1)
    129                 order2 order1))
    130         ;; Create dummy head
    131         (push nil termlist1)
    132         (push nil termlist2)
    133         (fast-add-to termlist1 termlist2 order1)
    134         ;; Remove dummy head
    135         (pop termlist1))))
     122  (with-slots ((termlist1 termlist) (order1 order))
     123      self
     124    (with-slots ((termlist2 termlist) (order2 order))
     125        other
     126      ;; Ensure orders are compatible
     127      (unless (eq order1 order2)
     128        (setf termlist2 (sort termlist2 order1)
     129              order2 order1))
     130      ;; Create dummy head
     131      (push nil termlist1)
     132      (push nil termlist2)
     133      (fast-add-to termlist1 termlist2 order1)
     134      ;; Remove dummy head
     135      (pop termlist1)))
    136136  self)
    137137
Note: See TracChangeset for help on using the changeset viewer.