- Timestamp:
- 2015-06-20T02:07:36-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2615 r2619 97 97 (do ((p p) 98 98 (q q)) 99 ((or (endp (cdr p)) (endp (cdr q))) 100 p) 99 ((or (endp (cdr p)) (endp (cdr q)))) 101 100 (multiple-value-bind 102 101 (greater-p equal-p)
Note:
See TracChangeset
for help on using the changeset viewer.