Changeset 1783
- Timestamp:
- 2015-06-15T11:19:23-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1782 r1783 377 377 (poly-list-lists nil) 378 378 (value-type nil) 379 (ring-and-order-var 'ring-and-order)) 379 (ring-and-order-var 'ring-and-order) 380 (ring-var 'ring)) 380 381 &body 381 382 body … … 406 407 ,value-type 407 408 (let* ((,ring-and-order-var ,(find-ring-and-order-by-name)) 408 (,ring (ro ring-and-order)))409 (,ring-var (ro ring-and-order))) 409 410 (let ,(let ((args nil)) 410 411 (dolist (p polynomials args)
Note:
See TracChangeset
for help on using the changeset viewer.