Changeset 2059

Timestamp:

2015-06-17T18:55:38-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/ring.lisp

@@ -87 +87 @@
 |#
 
-(defgeneric parse (object)
+(defgeneric ring-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 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)))
 
-(defgeneric dimension (object)
+(defgeneric ring-dimension (object)
   (:method ((object integer)) 1))