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 2427


Ignore:
Timestamp:
2015-06-19T07:59:03-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/order.lisp

    r2426 r2427  
    5959The second returned value is T if P=Q, otherwise it is NIL."
    6060  (declare (type monom p q) (type fixnum start end))
    61   (let ((d1 (monom-total-degree p start end))
    62         (d2 (monom-total-degree q start end)))
     61  (let ((d1 (r-total-degree p start end))
     62        (d2 (r-total-degree q start end)))
    6363    (declare (type fixnum d1 d2))
    6464    (cond
     
    9292NIL otherwise. The second returned value is T if P=Q, otherwise it is NIL."
    9393  (declare (type monom p q) (type fixnum start end))
    94   (let ((d1 (monom-total-degree p start end))
    95         (d2 (monom-total-degree q start end)))
     94  (let ((d1 (r-total-degree p start end))
     95        (d2 (r-total-degree q start end)))
    9696    (declare (type fixnum d1 d2))
    9797    (cond
Note: See TracChangeset for help on using the changeset viewer.