Changeset 2434 for branches/f4grobner

Timestamp:

2015-06-19T08:12:56-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/order.lisp

@@ -72 +72 @@
 
 ;; reverse lexicographic
-(defgeneric revlex> ((p monom) (q monom) &optional (start 0) (end (r-dimension  p)))
-  "Return T if P>Q with respect to reverse lexicographic order, NIL
+(defgeneric revlex> (p q &optional start end)
+  (:method ((p monom) (q monom) &optional (start 0) (end (r-dimension  p)))
+    "Return T if P>Q with respect to reverse lexicographic order, NIL
 otherwise.  The second returned value is T if P=Q, otherwise it is
 NIL. This is not and admissible monomial order because some sets do
 not have a minimal element. This order is useful in constructing other
 orders."
-  (declare (type fixnum start end))
-  (do ((i (1- end) (1- i)))
-      ((< i start) (values nil t))
-    (declare (type fixnum i))
-    (cond
-     ((< (r-elt p i) (r-elt q i))
-      (return-from revlex> (values t nil)))
-     ((> (r-elt p i) (r-elt q i))
-      (return-from revlex> (values nil nil))))))
+    (declare (type fixnum start end))
+    (do ((i (1- end) (1- i)))
+        ((< i start) (values nil t))
+      (declare (type fixnum i))
+      (cond
+        ((< (r-elt p i) (r-elt q i))
+         (return-from revlex> (values t nil)))
+        ((> (r-elt p i) (r-elt q i))
+         (return-from revlex> (values nil nil)))))))