Changeset 627
- Timestamp:
- 2015-06-07T00:29:37-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parser.lisp
r626 r627 59 59 "Convert a Maxima list to Lisp list." 60 60 (cond 61 ((and (consp (car expr)) (eql (caar expr) 'm list)) (cdr expr))61 ((and (consp (car expr)) (eql (caar expr) 'maxima:mlist)) (cdr expr)) 62 62 (t expr))) 63 63 64 (defun free-of-vars (expr vars) (apply #'$freeof `(,@vars ,expr))) 64 (defun free-of-vars (expr vars) 65 #-fake-maxima(apply #'$freeof `(,@vars ,expr)) 66 #-fake-maxima(apply #'freeof `(,@vars ,expr)) 67 ) 65 68 66 69 (defun parse-poly (expr vars &aux (vars (coerce-maxima-list vars)))
Note:
See TracChangeset
for help on using the changeset viewer.