Changeset 2112 for branches

Timestamp:

2015-06-17T20:17:22-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -138 +138 @@
   (with-slots (exponents)
       m
-    (reduce #'+ exponents :start start :end end)))
+    (reduce #'cl:+ exponents :start start :end end)))
 
 
@@ -156 +156 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'+ exponents)))
-        (map-into exponents #'+ exponents1 exponents2)
+             (dim (reduce #'cl:+ exponents)))
+        (map-into exponents #'cl:+ exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
 
@@ -169 +169 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'+ exponents)))
-        (map-into exponents #'- exponents1 exponents2)
+             (dim (reduce #'cl:+ exponents)))
+        (map-into exponents #'cl:- exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
 
@@ -237 +237 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'+ exponents)))
+             (dim (reduce #'cl:+ exponents)))
         (map-into exponents #'max exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
@@ -249 +249 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'+ exponents)))
+             (dim (reduce #'cl:+ exponents)))
         (map-into exponents #'min exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))