- Timestamp:
- 2015-06-05T12:29:23-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/grobner.lisp
r126 r127 110 110 "The ring of integers.") 111 111 112 (defvar * maxima-ring* *ring-of-integers*112 (defvar *coefficient-ring* *ring-of-integers* 113 113 "The ring of coefficients, over which all polynomials are assumed to 114 114 be defined.") … … 279 279 (defmacro with-coefficient-ring ((ring) &body body) 280 280 "Evaluate BODY with coefficient ring set to RING." 281 `(let ((* maxima-ring* (or (find-ring ,ring) *maxima-ring*)))281 `(let ((*coefficient-ring* (or (find-ring ,ring) *coefficient-ring*))) 282 282 . ,body)) 283 283
Note:
See TracChangeset
for help on using the changeset viewer.