close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 898


Ignore:
Timestamp:
2015-06-09T13:31:01-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/order.lisp

    r897 r898  
    5050  (do ((i start (1+ i)))
    5151      ((>= i end) (values nil t))
    52     (declare (type fixnum i))
    5352    (cond
    5453     ((> (monom-elt p i) (monom-elt q i))
     
    7978  (do ((i (1- end) (1- i)))
    8079      ((< i start) (values nil t))
    81     (declare (type fixnum i))
    8280    (cond
    8381     ((< (monom-elt p i) (monom-elt q i))
     
    104102  (do ((i (1- end) (1- i)))
    105103      ((< i start) (values nil t))
    106     (declare (type fixnum i))
    107104      (cond
    108105         ((> (monom-elt p i) (monom-elt q i))
Note: See TracChangeset for help on using the changeset viewer.