Changeset 3583 for branches/f4grobner/monom.lisp
- Timestamp:
- 2015-09-05T17:04:55-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3582 r3583 379 379 (:method ((p monom) (q monom) &optional (start 0) (end (monom-dimension p))) 380 380 (declare (type monom p q) (type fixnum start end)) 381 (let ((d1 ( monom-total-degree p start end))382 (d2 ( monom-total-degree q start end)))381 (let ((d1 (total-degree p start end)) 382 (d2 (total-degree q start end))) 383 383 (declare (type fixnum d1 d2)) 384 384 (cond
Note:
See TracChangeset
for help on using the changeset viewer.