Changeset 1270 for branches/f4grobner

Timestamp:

2015-06-11T19:47:09-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/division.lisp (modified) (2 diffs)

branches/f4grobner/division.lisp

@@ -78 +78 @@
 the polynomial R have their terms in reversed order. Hence, before
 the arithmetic is performed, we need to fix the order of terms"
-  (format t "Running loop-invariant check now.~%")
   (format t "C=~A~%F=~A~%A=~A~%FL=~A~%R=~A~%P=~A~%" c f a fl r p)
   (flet ((p-add (x y) (poly-add ring-and-order x y))
@@ -89 +88 @@
               (scalar-times-poly ring c f)
               (reduce #'p-add (list prod r p))))))
-      (if succeeded-p 
-          (format t "### Success ###~%")
-          (error "####### Check failed #####"))
+      (unless succeeded-p 
+          (error "Division failed: C=~A~%F=~A~%A=~A~%FL=~A~%R=~A~%P=~A~%" c f a fl r p))
       succeeded-p)))