Changeset 3566 for branches

Timestamp:

2015-09-05T16:49:08-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/monom.lisp (modified) (1 diff)

branches/f4grobner/monom.lisp

@@ -273 +273 @@
         (every #'(lambda (x y) (zerop (min x y))) exponents1 exponents2)))))
 
-(defmethod monom-lcm ((m1 monom) (m2 monom)) 
-  "Returns least common multiple of monomials M1 and M2."
-  (with-slots ((exponents1 exponents))
-      m1
-    (with-slots ((exponents2 exponents))
-        m2
-      (let* ((exponents (copy-seq exponents1)))
-        (map-into exponents #'max exponents1 exponents2)
-        (make-instance 'monom :exponents exponents)))))
+(defgeneric monom-lcm (object1 object2)
+  (:documentation "Returns the multiple of objects OBJECT1 and OBJECT2.")
+  (:method ((m1 monom) (m2 monom))
+    "Returns least common multiple of monomials M1 and M2."
+    (with-slots ((exponents1 exponents))
+        m1
+      (with-slots ((exponents2 exponents))
+          m2
+        (let* ((exponents (copy-seq exponents1)))
+          (map-into exponents #'max exponents1 exponents2)
+          (make-instance 'monom :exponents exponents))))))