- Timestamp:
- 2015-06-15T11:41:22-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1795 r1796 284 284 (p (parse-poly p vars))) 285 285 ,@(when documentation-supplied-p (list documentation)) 286 ( coerce-to-maxima :polynomial (,fun-name +maxima-ring+ p) vars)))286 (poly->maxima :polynomial (,fun-name +maxima-ring+ p) vars))) 287 287 288 288 (defmacro define-binop (maxima-name fun-name … … 295 295 (q (parse-poly q vars))) 296 296 ,@(when documentation-supplied-p (list documentation)) 297 ( coerce-to-maxima :polynomial (,fun-name +maxima-ring+ p q) vars)))297 (poly->maxima :polynomial (,fun-name +maxima-ring+ p q) vars))) 298 298 299 299
Note:
See TracChangeset
for help on using the changeset viewer.