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 3908


Ignore:
Timestamp:
2016-05-29T19:46:04-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r3907 r3908  
    286286
    287287#|
     288
    288289(defmacro def-add/subtract-method (add/subtract-method-name
    289290                                                uminus-method-name
    … …  
    301302                                 ,(when uminus-method-name `(function ,uminus-method-name))))
    302303     self))
     304
     305(eval-when (:load-toplevel :execute)
     306
     307  (def-add/subtract-method add-to nil
     308    "Adds to polynomial SELF another polynomial OTHER.
     309This operation destructively modifies both polynomials.
     310The result is stored in SELF. This implementation does
     311no consing, entirely reusing the sells of SELF and OTHER.")
     312
     313  (def-add/subtract-method subtract-from unary-minus
     314    "Subtracts from polynomial SELF another polynomial OTHER.
     315This operation destructively modifies both polynomials.
     316The result is stored in SELF. This implementation does
     317no consing, entirely reusing the sells of SELF and OTHER.")
     318  )
     319
    303320|#
    304321
Note: See TracChangeset for help on using the changeset viewer.