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 2735


Ignore:
Timestamp:
2015-06-20T17:47:18-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2727 r2735  
    153153     self))
    154154
    155 (eval-when (:compile-toplevel :load-toplevel :execute)
    156   (def-additive-operation-method add-to
    157       "Adds to polynomial SELF another polynomial OTHER.
     155(def-additive-operation-method add-to
     156    "Adds to polynomial SELF another polynomial OTHER.
    158157This operation destructively modifies both polynomials.
    159158The result is stored in SELF. This implementation does
    160159no consing, entirely reusing the sells of SELF and OTHER.")
    161160
    162   (def-additive-operation-method subtract-from
    163       "Subtracts from polynomial SELF another polynomial OTHER.
     161(def-additive-operation-method subtract-from
     162    "Subtracts from polynomial SELF another polynomial OTHER.
    164163This operation destructively modifies both polynomials.
    165164The result is stored in SELF. This implementation does
    166165no consing, entirely reusing the sells of SELF and OTHER.")
    167   )
     166
    168167
    169168(defmethod unary-minus ((self poly))
Note: See TracChangeset for help on using the changeset viewer.