Changeset 960
- Timestamp:
- 2015-06-09T19:48:51-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring-and-order.lisp
r959 r960 34 34 (:constructor make-ring-and-order 35 35 (&key 36 ring37 order38 (primary-elimination-order nil primary-elimination-order-supplied-p)39 (secondary_elimination_order nil secondary_elimination_order-supplied-p)36 (ring *ring-of-integers*) 37 (order #'lex>) 38 (primary-elimination-order order) 39 (secondary_elimination_order order) 40 40 (elimination-order-factory 41 (cond 42 ((and primary-elimination-order-supplied-p 43 secondary_elimination_order-supplied-p) 44 (make-elimination-order-factory primary-elimination-order 45 secondary_elimination_order)) 46 (t 47 (error "Primary and secondary elimination order must be supplied."))))))) 41 (make-elimination-order-factory primary-elimination-order))))) 48 42 (ring *ring-of-integers* :type ring) 49 43 (order #'lex> :type function)
Note:
See TracChangeset
for help on using the changeset viewer.