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 4379


Ignore:
Timestamp:
2016-06-06T19:55:26-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/ring.lisp

    r4378 r4379  
    103103
    104104(defgeneric add (summand &rest more-summands)
    105   "Successively Adds to SUMMAND the elements of MORE-SUMMANDS. The first SUMMAND must not be destructively modified.
    106 Instead, a copy of factor should be made and returned as the value of
    107 this function."
     105  (:documentation "Successively adds to SUMMAND the elements of
     106MORE-SUMMANDS, using ADD-TO. The first SUMMAND must not be
     107destructively modified.  Instead, a copy of factor should be made and
     108returned as the value of this function.")
    108109  (:method ((summand t) &rest more-summands)
    109110    (reduce #'add-to more-summands :initial-value (copy-instance summand))))
    110111
    111112(defgeneric subtract (minuend  &rest subtrahends)
    112   "Successively subtracts SUBTRAHENDS from MINUEND, using SUBTRACT-FROM. MINUEND. must not be destructively modified.
     113  (:documentation "Successively subtracts SUBTRAHENDS from MINUEND,
     114using SUBTRACT-FROM. MINUEND. must not be destructively modified.
    113115Instead, a copy of factor should be made and returned as the value of
    114 this function."
     116this function.")
    115117  (:method ((minuend t) &rest subtrahends)
    116118    (cond ((endp subtrahends) (unary-minus (copy-instance minuend)))
Note: See TracChangeset for help on using the changeset viewer.