Changeset 2058 for branches

Timestamp:

2015-06-17T18:54:24-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/ring.lisp

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