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


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r3634 r3639  
    154154(defmethod universal-zerop ((self poly))
    155155  "Return T iff SELF is a zero polynomial."
    156   (null (poly-termlist self))))
     156  (null (poly-termlist self)))
    157157
    158158(defgeneric poly-length (self)
     
    234234(eval-when (:compile-toplevel :load-toplevel :execute)
    235235
    236   (def-add/subtract-method poly-add-to nil
     236  (def-add/subtract-method add-to nil
    237237    "Adds to polynomial SELF another polynomial OTHER.
    238238This operation destructively modifies both polynomials.
     
    240240no consing, entirely reusing the sells of SELF and OTHER.")
    241241
    242   (def-add/subtract-method poly-subtract-from unary-minus
     242  (def-add/subtract-method subtract-from unary-minus
    243243    "Subtracts from polynomial SELF another polynomial OTHER.
    244244This operation destructively modifies both polynomials.
     
    255255(defun add-termlists (p q order-fn)
    256256  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
    257   (fast-add/subtract p q order-fn #'poly-add-to nil))
     257  (fast-add/subtract p q order-fn #'add-to nil))
    258258
    259259(defmacro multiply-term-by-termlist-dropping-zeros (term termlist
Note: See TracChangeset for help on using the changeset viewer.