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 1733 for branches/f4grobner


Ignore:
Timestamp:
2015-06-15T08:21:29-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1732 r1733  
    385385     (poly->maxima
    386386      ,value-type
    387       (let ((*ring-and-order* (find-ring-and-order-by-name
    388                                :ring ,$poly_coefficient_ring
    389                                :order ,$poly_monomial_order
    390                                ;; :elimination-order ,$poly_primary_elimination_order
    391                                :primary-elimination-order ,$poly_secondary_elimination_order
    392                                :secondary-elimination-order ,$poly_elimination_order)))
     387      (let ((*ring-and-order* `(find-ring-and-order-by-name
     388                                :ring ,$poly_coefficient_ring
     389                                :order ,$poly_monomial_order
     390                                ;; :elimination-order ,$poly_primary_elimination_order
     391                                :primary-elimination-order ,$poly_secondary_elimination_order
     392                                :secondary-elimination-order ,$poly_elimination_order)))
    393393        (let ,(let ((args nil))
    394394                       (dolist (p polynomials args)
Note: See TracChangeset for help on using the changeset viewer.