Changeset 1037
- Timestamp:
- 2015-06-10T08:22:30-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parse.lisp
r1036 r1037 280 280 (if (= (length expr) 3) 281 281 ($poly-expt ring-and-order 282 (poly-eval-1 ring-and-order (cadr expr) vars)282 (poly-eval-1 (cadr expr) vars ring order) 283 283 (caddr expr) 284 284 n) … … 291 291 (otherwise 292 292 (let ((r (mapcar 293 #'(lambda (e) (poly-eval-1 ring-and-order e vars))293 #'(lambda (e) (poly-eval-1 e vars ring order)) 294 294 (cdr expr)))) 295 295 (ecase (car expr)
Note:
See TracChangeset
for help on using the changeset viewer.