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 4349


Ignore:
Timestamp:
2016-06-06T17:32:54-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r4342 r4349  
    4343           "INTEGER-RING"
    4444           "INTEGER-RING-VALUE"
     45           "MULTIPLY"
    4546           )
    4647  (:documentation "Defines an abstract ring class and ring operations.")
     
    9697  (:documentation "Create a unit in the ring of SELF. A fresh instance
    9798should be returned upon every call."))
     99
     100(defgeneric multiply (factor &rest more-factors)
     101  (:documentation "Successively multiplies factor FACTOR by the remaining arguments
     102MORE-FACTORS, using MULTIPLY-BY to multiply two factors. Thus
     103FACTOR may be destructively modified.")
     104  (:method ((factor t) & rest more-factors)
     105    (reduce #'multiply-by more-factors :initial-value (copy-instance factor))))
     106
Note: See TracChangeset for help on using the changeset viewer.