Changeset 2012
- Timestamp:
- 2015-06-17T14:48:17-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r1960 r2012 38 38 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0))) 39 39 40 (defstruct (term 41 ;; A simple BOA constructor 42 ;;(:constructor make-term (monom coeff)) 43 ;;(:constructor make-term-variable) 44 ;;(:type list) 45 ) 40 (defstruct (term) 46 41 (monom nil :type monom) 47 42 (coeff nil)) 48 49 43 50 44 (defun make-term-variable (ring nvars pos
Note:
See TracChangeset
for help on using the changeset viewer.