- Timestamp:
- 2015-06-15T18:46:50-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1939 r1940 223 223 and then evaluating the expression using polynomial arithmetic 224 224 implemented by the POLYNOMIAL package." 225 (declare ( ring-and-order ring-and-order))225 (declare (type ring-and-order ring-and-order)) 226 226 (labels ((parse (arg) (maxima->poly arg vars ring-and-order)) 227 227 (parse-list (args) (mapcar #'parse args))) … … 265 265 (ring-and-order (find-ring-and-order-by-name))) 266 266 "Convert a Maxima representation of a list of polynomials to the internal form." 267 (declare (type ring-and-order ring-and-order)) 267 268 (case (caar expr) 268 269 (mlist (mapcar #'(lambda (p)
Note:
See TracChangeset
for help on using the changeset viewer.