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 1747 for branches


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/mx-grobner.lisp

    r1746 r1747  
    370370;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    371371
    372 (defmacro with-ring-and-order (((maxima-vars &optional (maxima-new-vars nil new-vars-supplied-p))
     372(defmacro with-ring-and-order (((ring-and-order maxima-vars &optional (maxima-new-vars nil new-vars-supplied-p))
    373373                                &key (polynomials nil)
    374374                                (poly-lists nil)
     
    385385     (poly->maxima
    386386      ,value-type
    387       (let ((*ring-and-order* ,(find-ring-and-order-by-name)))
     387      (let ((,ring-and-order ,(find-ring-and-order-by-name)))
    388388        (let ,(let ((args nil))
    389389                   (dolist (p polynomials args)
    390                      (setf args (cons `(,p (maxima->poly ,p ,vars *ring-and-order*)) args)))
     390                     (setf args (cons `(,p (maxima->poly ,p ,vars ,ring-and-order)) args)))
    391391                   (dolist (p poly-lists args)
    392                      (setf args (cons `(,p (maxima->poly-list ,p ,vars *ring-and-order*)) args)))
     392                     (setf args (cons `(,p (maxima->poly-list ,p ,vars ,ring-and-order)) args)))
    393393                   (dolist (p poly-list-lists args)
    394                      (setf args (cons `(,p (maxima->poly-list-list ,p ,vars *ring-and-order*)) args))))
     394                     (setf args (cons `(,p (maxima->poly-list-list ,p ,vars ,ring-and-order)) args))))
    395395          . ,body))
    396396      ,(if new-vars-supplied-p
Note: See TracChangeset for help on using the changeset viewer.