Changeset 3850 for branches/f4grobner
- Timestamp:
- 2016-05-28T13:08:52-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3849 r3850 233 233 (cond ((endp denominators) 234 234 (divide-by 1 numerator)) 235 (t (divide-by (copy-instance numerator) (apply #'multiply denominators))))) )235 (t (divide-by (copy-instance numerator) (apply #'multiply denominators))))) 236 236 237 237 (defgeneric divides-p (object1 object2)
Note:
See TracChangeset
for help on using the changeset viewer.