Changeset 2099

Timestamp:

2015-06-17T20:00:49-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/ring.lisp

@@ -49 +49 @@
 (in-package :ring)
 
-(defgeneric parse (object)
-  (:method ((object t)) object))
-
-(defgeneric unit-for (object)
+(defgeneric ring-unit-for (object)
   (:method ((self number)) 1))
 
-(defgeneric zerop (object)
+(defgeneric ring-zerop (object)
   (:method ((self number)) (zerop self)))
 
-(defgeneric add (x y)
+(defgeneric ring-add (x y)
   (:method ((x number) (y number)) (+ x y))) 
 
-(defgeneric mul (x y)
+(defgeneric ring-mul (x y)
   (:method ((x number) (y number)) (* x y))) 
 
-(defgeneric tensor-mul (x y))
+(defgeneric ring-tensor-mul (x y))
 
-(defgeneric div (x y)
+(defgeneric ring-div (x y)
   (:method ((x number) (y number)) (/ x y))) 
 
-(defgeneric lcm (x y)
+(defgeneric ring-lcm (x y)
   (:method ((x integer) (y integer)) (lcm x y))) 
 
-(defgeneric ezgcd (x y)
+(defgeneric ring-ezgcd (x y)
   (:method ((x integer) (y integer)
             &aux (c (gcd x y)))
     (values c (/ x c) (/ y c))))
 
-(defgeneric gcd (x y)
+(defgeneric ring-gcd (x y)
   (:method ((x integer) (y integer))
     (gcd x y)))