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