Changeset 1723 for branches/f4grobner
- Timestamp:
- 2015-06-15T07:57:36-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1722 r1723 269 269 270 270 271 #|272 273 274 271 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 275 272 ;; … … 300 297 301 298 299 (defvar *ring-and-order* nil) 300 302 301 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 303 302 ;; … … 307 306 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 308 307 308 #| 309 309 (defmacro with-monomial-order ((order) &body body) 310 310 "Evaluate BODY with monomial order set to ORDER." … … 330 330 (*elimination-order* (or (find-order ,elimination-order) *elimination-order*))) 331 331 . ,body)) 332 333 |# 332 334 333 335
Note:
See TracChangeset
for help on using the changeset viewer.