Changeset 3553

Timestamp:

2015-09-05T16:36:51-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/monom.lisp (modified) (3 diffs)

branches/f4grobner/monom.lisp

@@ -174 +174 @@
     (total-degree m start end)))
 
-(defgeneric universal-multiply-by (self other)
+(defgeneric multiply-by (self other)
   (:documentation "Multiply SELF by OTHER, return SELF.")
   (:method ((self monom) (other monom))
@@ -186 +186 @@
   self))
 
-(defgeneric universal-divide-by (self other)
+(defgeneric divide-by (self other)
   (:documentation "Divide SELF by OTHER, return SELF.")
   (:method ((self monom) (other monom))
@@ -208 +208 @@
       copy))
 
-(defgeneric universal-multiply-2 (object1 object2)
+(defgeneric multiply-2 (object1 object2)
   (:documentation "Multiply OBJECT1 by OBJECT2")
   (:method  (object1 object2)
     (universal-multiply-by (copy-instance object1) (copy-instance object2))))
 
-(defgeneric universal-divide (numerator &rest denominators)
+(defgeneric divide (numerator &rest denominators)
   (:documentation "Non-destructively divide object NUMERATOR by product of DENOMINATORS.")
   (:method ((numerator monom) &rest denominators)
-    (universal-divide-by (copy-instance numerator) (reduce #'universal-multiply-2 denominators))))
+    (divide-by (copy-instance numerator) (reduce #'multiply-2 denominators))))
 
 (defmethod monom-divides-p ((m1 monom) (m2 monom))