Changeset 628
- Timestamp:
- 2015-06-07T00:31:13-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parser.lisp
r627 r628 62 62 (t expr))) 63 63 64 (defun free-of-vars (expr vars) 65 #-fake-maxima(apply #'$freeof `(,@vars ,expr)) 66 #-fake-maxima(apply #'freeof `(,@vars ,expr)) 67 ) 64 #+fake-maxima 65 (defun $freeof (vars expr) 66 t) 67 68 (defun free-of-vars (expr vars) (apply #'$freeof `(,@vars ,expr))) 68 69 69 70 (defun parse-poly (expr vars &aux (vars (coerce-maxima-list vars)))
Note:
See TracChangeset
for help on using the changeset viewer.