Changeset 2436 for branches

Timestamp:

2015-06-19T08:14:50-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/order.lisp

@@ -105 +105 @@
          (revlex> p q start end))))))
 
-(defmethod invlex> ((p monom) (q monom) &optional (start 0) (end (r-dimension  p)))
-  "Return T if P>Q with respect to inverse lexicographic order, NIL otherwise
+(defgeneric invlex> (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 inverse lexicographic order, NIL otherwise
 The second returned value is T if P=Q, otherwise it is 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 invlex> (values t nil)))
-      ((< (r-elt p i) (r-elt q i))
-       (return-from invlex> (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 invlex> (values t nil)))
+        ((< (r-elt p i) (r-elt q i))
+         (return-from invlex> (values nil nil)))))))