Changeset 1805 for branches/f4grobner

Timestamp:

2015-06-15T12:42:32-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/mx-grobner.lisp (modified) (1 diff)

branches/f4grobner/mx-grobner.lisp

@@ -399 +399 @@
 
 ;;Simple operators
-(define-binop $poly_add poly-add
+(define-binop ($poly_add poly-add)
   "Adds two polynomials P and Q")
 
-(define-binop $poly_subtract poly-sub
+(define-binop ($poly_subtract poly-sub)
   "Subtracts a polynomial Q from P.")
 
-(define-binop $poly_multiply poly-mul
+(define-binop ($poly_multiply poly-mul)
   "Returns the product of polynomials P and Q.")
 
-(define-binop $poly_s_polynomial spoly
+(define-binop ($poly_s_polynomial spoly)
   "Returns the syzygy polynomial (S-polynomial) of two polynomials P and Q.")
 
-(define-unop $poly_primitive_part poly-primitive-part
+(define-unop ($poly_primitive_part poly-primitive-part)
   "Returns the polynomial P divided by GCD of its coefficients.")
 
-(define-unop $poly_normalize poly-normalize
+(define-unop ($poly_normalize poly-normalize)
   "Returns the polynomial P divided by the leading coefficient.")