Changeset 2154 for branches/f4grobner

Timestamp:

2015-06-17T21:36:03-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -107 +107 @@
   (with-slots (exponents)
       m
-    (cl:elt exponents index)))
+    (elt exponents index)))
 
 (defmethod (setf r-elt) (new-value (m monom) index)
@@ -113 +113 @@
   (with-slots (exponents)
       m
-    (setf (cl:elt exponents index) new-value)))
+    (setf (elt exponents index) new-value)))
 
 (defmethod r-total-degree ((m monom) &optional (start 0) (end (r-dimension m)))
@@ -121 +121 @@
   (with-slots (exponents)
       m
-    (reduce #'cl:+ exponents :start start :end end)))
+    (reduce #'+ exponents :start start :end end)))
 
 
@@ -137 +137 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'cl:+ exponents)))
-        (map-into exponents #'cl:+ exponents1 exponents2)
+             (dim (reduce #'+ exponents)))
+        (map-into exponents #'+ exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
 
@@ -150 +150 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'cl:+ exponents)))
-        (map-into exponents #'cl:- exponents1 exponents2)
+             (dim (reduce #'+ exponents)))
+        (map-into exponents #'- exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
 
@@ -203 +203 @@
     (with-slots (exponents2 exponents)
         m2
-      (every #'(lambda (x y) (cl:zerop (min x y))) exponents1 exponents2))))
+      (every #'(lambda (x y) (zerop (min x y))) exponents1 exponents2))))
 
 
@@ -221 +221 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'cl:+ exponents)))
+             (dim (reduce #'+ exponents)))
         (map-into exponents #'max exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
@@ -233 +233 @@
         m2
       (let* ((exponents (copy-seq exponents1))
-             (dim (reduce #'cl:+ exponents)))
+             (dim (reduce #'+ exponents)))
         (map-into exponents #'min exponents1 exponents2)
         (make-instance 'monom :dim dim :exponents exponents)))))
@@ -242 +242 @@
   (with-slots (exponents)
       m
-    (plusp (cl:elt exponents k))))
+    (plusp (elt exponents k))))
 
 (defmethod r-tensor-product ((m1 monom) (m2 monom)
-                             &aux (dim (cl:+ (r-dimension m1) (r-dimension m2))))
+                             &aux (dim (+ (r-dimension m1) (r-dimension m2))))
   (declare (fixnum dim))
   (with-slots (exponents1 exponents)
@@ -273 +273 @@
   (with-slots (exponents)
       m
-    (setf (cl:elt exponents pos) power)
+    (setf (elt exponents pos) power)
     m))