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


Ignore:
Timestamp:
2015-09-05T20:16:00-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r3621 r3622  
    8686
    8787(defgeneric poly-insert-term (self term)
    88   (:documentation "Insert a term into SELF before all other
     88  (:documentation "Insert a term TERM into SELF before all other
    8989  terms. Order is not enforced.")
    9090  (:method ((self poly) (term term))
     
    9595    self))
    9696
    97 (defgeneric poly-append-term (self monom coeff)
    98   (:documentation "Append a term with monomial MONOM and coefficient COEFF
    99 after all other terms. Order is not enforced.")
    100   (:method ((self poly) (monom monom) coeff)
     97(defgeneric poly-append-term (self term)
     98  (:documentation "Append a term TERM to SELF after all other terms. Order is not enforced.")
     99  (:method ((self poly) (term term))
    101100    (cond ((null (poly-dimension self))
    102            (setf (poly-dimension self) (monom-dimension monom)))
    103           (t (assert (= (poly-dimension self) (monom-dimension monom)))))
    104     (setf (cdr (last (poly-termlist self))) (list (cons monom coeff)))
     101           (setf (poly-dimension self) (monom-dimension term)))
     102          (t (assert (= (poly-dimension self) (monom-dimension term)))))
     103    (setf (cdr (last (poly-termlist self))) (list term))
    105104    self))
    106105
Note: See TracChangeset for help on using the changeset viewer.