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 3553 for branches/f4grobner


Ignore:
Timestamp:
2015-09-05T16:36:51-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r3552 r3553  
    174174    (total-degree m start end)))
    175175
    176 (defgeneric universal-multiply-by (self other)
     176(defgeneric multiply-by (self other)
    177177  (:documentation "Multiply SELF by OTHER, return SELF.")
    178178  (:method ((self monom) (other monom))
     
    186186  self))
    187187
    188 (defgeneric universal-divide-by (self other)
     188(defgeneric divide-by (self other)
    189189  (:documentation "Divide SELF by OTHER, return SELF.")
    190190  (:method ((self monom) (other monom))
     
    208208      copy))
    209209
    210 (defgeneric universal-multiply-2 (object1 object2)
     210(defgeneric multiply-2 (object1 object2)
    211211  (:documentation "Multiply OBJECT1 by OBJECT2")
    212212  (:method  (object1 object2)
    213213    (universal-multiply-by (copy-instance object1) (copy-instance object2))))
    214214
    215 (defgeneric universal-divide (numerator &rest denominators)
     215(defgeneric divide (numerator &rest denominators)
    216216  (:documentation "Non-destructively divide object NUMERATOR by product of DENOMINATORS.")
    217217  (:method ((numerator monom) &rest denominators)
    218     (universal-divide-by (copy-instance numerator) (reduce #'universal-multiply-2 denominators))))
     218    (divide-by (copy-instance numerator) (reduce #'multiply-2 denominators))))
    219219
    220220(defmethod monom-divides-p ((m1 monom) (m2 monom))
Note: See TracChangeset for help on using the changeset viewer.