close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1707 for branches/f4grobner


Ignore:
Timestamp:
2015-06-14T21:52:28-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1706 r1707  
    239239(defun maxima->poly-list-of-lists (poly-list-of-lists vars
    240240                                   &optional
    241                                      (ring-and-order (find-ring-and-order-by-name))
    242                                    &aux
    243                                      (ring (ro-ring ring-and-order)))
     241                                     (ring-and-order (find-ring-and-order-by-name)))
    244242  "Parse a Maxima representation of a list of lists of polynomials."
    245   (mapcar #'(lambda (g) (maxima->poly-list g vars ring order))
     243  (mapcar #'(lambda (g) (maxima->poly-list g vars ring-and-order))
    246244          (coerce-maxima-list poly-list-of-lists)))
    247245
Note: See TracChangeset for help on using the changeset viewer.