Changeset 898 for branches/f4grobner
- Timestamp:
- 2015-06-09T13:31:01-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/order.lisp
r897 r898 50 50 (do ((i start (1+ i))) 51 51 ((>= i end) (values nil t)) 52 (declare (type fixnum i))53 52 (cond 54 53 ((> (monom-elt p i) (monom-elt q i)) … … 79 78 (do ((i (1- end) (1- i))) 80 79 ((< i start) (values nil t)) 81 (declare (type fixnum i))82 80 (cond 83 81 ((< (monom-elt p i) (monom-elt q i)) … … 104 102 (do ((i (1- end) (1- i))) 105 103 ((< i start) (values nil t)) 106 (declare (type fixnum i))107 104 (cond 108 105 ((> (monom-elt p i) (monom-elt q i))
Note:
See TracChangeset
for help on using the changeset viewer.