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


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

* empty log message *

File:
1 edited

Legend:

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

    r1748 r1749  
    371371
    372372(defmacro with-ring-and-order (((maxima-vars &optional (maxima-new-vars nil new-vars-supplied-p))
    373                                 &key (polynomials nil)
     373                                &key
     374                                (polynomials nil)
    374375                                (poly-lists nil)
    375376                                (poly-list-lists nil)
    376                                 (value-type nil))
     377                                (value-type nil)
     378                                (ring-and-order-var 'ring-and-order))
    377379                               &body
    378380                                 body
     
    385387     (poly->maxima
    386388      ,value-type
    387       (let ((,ring-and-order ,(find-ring-and-order-by-name)))
     389      (let ((,ring-and-order-var ,(find-ring-and-order-by-name)))
    388390        (let ,(let ((args nil))
    389391                   (dolist (p polynomials args)
    390                      (setf args (cons `(,p (maxima->poly ,p ,vars ,ring-and-order)) args)))
     392                     (setf args (cons `(,p (maxima->poly ,p ,vars ,ring-and-order-var)) args)))
    391393                   (dolist (p poly-lists args)
    392                      (setf args (cons `(,p (maxima->poly-list ,p ,vars ,ring-and-order)) args)))
     394                     (setf args (cons `(,p (maxima->poly-list ,p ,vars ,ring-and-order-var)) args)))
    393395                   (dolist (p poly-list-lists args)
    394                      (setf args (cons `(,p (maxima->poly-list-list ,p ,vars ,ring-and-order)) args))))
     396                     (setf args (cons `(,p (maxima->poly-list-list ,p ,vars ,ring-and-order-var)) args))))
    395397          . ,body))
    396398      ,(if new-vars-supplied-p
Note: See TracChangeset for help on using the changeset viewer.