Changeset 2917 for branches/f4grobner

Timestamp:

2015-06-21T12:46:12-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -196 +196 @@
 (defun add-termlists (p q order-fn)
   "Destructively adds two termlists P and Q ordered according to ORDER-FN."
-  (fast-add/subtract p q order-fn add-to nil))
-
+  (fast-add/subtract p q order-fn #'add-to nil))
 
 (defmacro multiply-term-by-termlist-dropping-zeros (term termlist 
@@ -217 +216 @@
 (defun multiply-termlists (p q order-fn)
   (cond 
-    ((or (endp p) (endp q)) nil)        ;p or q is 0 (represented by NIL)
+    ((or (endp p) (endp q))         
+     ;;p or q is 0 (represented by NIL)
+     nil)       
     ;; If p= p0+p1 and q=q0+q1 then p*q=p0*q0+p0*q1+p1*q
     ((endp (cdr p))
@@ -229 +230 @@
                      (multiply-termlists (cdr p) q)
                      order-fn))))))))
+#|
+
 
 
@@ -237 +240 @@
   self)
 
+|#
 
 #|