- Timestamp:
- 2016-06-10T19:54:05-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/fast-add.lisp
r4441 r4443 2 2 3 3 (defun fast-add (p q order-fn add-fn &aux result result-last) 4 (assert (not (eq p q))) 4 5 (flet ((add-to-result (x) 5 6 (assert (consp x))
Note:
See TracChangeset
for help on using the changeset viewer.