Changeset 2761 for branches/f4grobner

Timestamp:

2015-06-20T19:22:05-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -102 +102 @@
 
 
-(defmacro fast-add/subtract (p q order-fn 
-                             add/subtract-method-name  
-                             &optional 
-                               (uminus-method-name nil uminus-method-name-supplied-p))
+(defmacro fast-add/subtract (p q order-fn add/subtract-fn uminus-fn)
   "Return an expression which will efficiently adds/subtracts two
 polynomials, P and Q.  The addition/subtraction of coefficients is
@@ -131 +128 @@
             )
            (equal-p
-            (let ((s (funcall ,add/subtract-method-name (lc p) (lc q))))
+            (let ((s (funcall ,add/subtract-fn (lc p) (lc q))))
               (cond 
                 ((r-zerop s)
@@ -144 +141 @@
             ;;Negate the term of Q if UMINUS provided, signallig
             ;;that we are doing subtraction
-            ,@(when uminus-method-name-supplied-p
-                    `((setf (lc q) (funcall #',uminus-method-name (lc q)))))
+            ,@(when uminus-fn
+                    `((setf (lc q) (funcall #',uminus-fn (lc q)))))
             (rotatef (cdr q) r q)))))))