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 2777


Ignore:
Timestamp:
2015-06-20T20:12:33-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r2776 r2777  
    169169     self))
    170170
    171 (def-add/subtract-method add-to nil
    172      "Adds to polynomial SELF another polynomial OTHER.
     171(eval-when (:compile-toplevel :load-toplevel :execute)
     172
     173  (def-add/subtract-method add-to nil
     174    "Adds to polynomial SELF another polynomial OTHER.
    173175This operation destructively modifies both polynomials.
    174176The result is stored in SELF. This implementation does
    175177no consing, entirely reusing the sells of SELF and OTHER.")
    176178
    177 (def-add/subtract-method subtract-from unary-minus
     179  (def-add/subtract-method subtract-from unary-minus
    178180    "Subtracts from polynomial SELF another polynomial OTHER.
    179181This operation destructively modifies both polynomials.
    180182The result is stored in SELF. This implementation does
    181183no consing, entirely reusing the sells of SELF and OTHER.")
     184
     185)
    182186
    183187(defmethod unary-minus ((self poly))
Note: See TracChangeset for help on using the changeset viewer.