- Timestamp:
- 2016-05-31T19:16:37-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4045 r4069 228 228 (cond ((endp factors) 1) 229 229 ((endp (rest factors)) (first factors)) 230 (t (reduce #'multiply-2 factors :initial-value 1))))230 (t (reduce #'multiply-2 factors)))) 231 231 232 232 (defgeneric unary-inverse (self)
Note:
See TracChangeset
for help on using the changeset viewer.