Changeset 1790
- Timestamp:
- 2015-06-15T11:35:25-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1789 r1790 411 411 (let ((,ring-and-order-var ,(find-ring-and-order-by-name))) 412 412 ;; Define a shorthand to RING 413 (symbol-macrolet ( ,ring-var (ro-ring ring-and-order))413 (symbol-macrolet ((,ring-var (ro-ring ring-and-order))) 414 414 (let ,(let ((args nil)) 415 415 (dolist (p polynomials args) … … 557 557 :poly-lists (f plist) 558 558 :value-type :poly-list) 559 (polysaturation-extension ring -and-orderf plist)))559 (polysaturation-extension ring f plist))) 560 560 561 561 (defmfun $poly_ideal_polysaturation1 (f plist vars) 562 562 (with-ring-and-order ((vars) :poly-lists (f plist) 563 563 :value-type :poly-list) 564 (ideal-polysaturation-1 ring -and-orderf plist 0 nil)))564 (ideal-polysaturation-1 ring f plist 0 nil))) 565 565 566 566 (defmfun $poly_ideal_saturation (f g vars)
Note:
See TracChangeset
for help on using the changeset viewer.