Changeset 2450 for branches

Timestamp:

2015-06-19T10:19:54-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/ring.lisp

@@ -73 +73 @@
 
 (defgeneric r-zerop (object)
-  (:method ((self number)) (cl:zerop self)))
+  (:method ((self number)) (zerop self)))
 
 (defgeneric r+ (x y)
-  (:method ((x number) (y number)) (cl:+ x y))) 
+  (:method ((x number) (y number)) (+ x y))) 
 
 (defgeneric r- (x y)
-  (:method ((x number) (y number)) (cl:- x y))) 
+  (:method ((x number) (y number)) (- x y))) 
 
 (defgeneric r* (x y)
-  (:method ((x number) (y number)) (cl:* x y))) 
+  (:method ((x number) (y number)) (* x y))) 
 
 (defgeneric r-tensor-product (x y))
 
 (defgeneric r/ (x y)
-  (:method ((x number) (y number)) (cl:/ x y))) 
+  (:method ((x number) (y number)) (/ x y))) 
 
 (defgeneric r-lcm (x y)
-  (:method ((x integer) (y integer)) (cl:lcm x y))) 
+  (:method ((x integer) (y integer)) (lcm x y))) 
 
 (defgeneric r-expt (x y)
-  (:method ((x integer) (y integer)) (cl:expt x y))) 
+  (:method ((x integer) (y integer)) (expt x y))) 
 
 (defgeneric r-ezgcd (x y)
@@ -102 +102 @@
 (defgeneric r-gcd (x y)
   (:method ((x integer) (y integer))
-    (cl:gcd x y)))
+    (gcd x y)))
 
 (defgeneric r-dimension (object))
@@ -112 +112 @@
 (defgeneric r-divides-p (object1 object2)
   (:method ((object1 integer) (object2 integer))
-    (cl:zerop (rem object2 object1)))
+    (zerop (rem object2 object1)))
   (:documentation "Returns T if OBJECT1 divides OBJECT2"))