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


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1741 r1742  
    381381                               &aux
    382382                                 (vars (gensym))
    383                                  (new-vars (gensym))
    384                                  (ring-and-order (gensym)))
     383                                 (new-vars (gensym)))
    385384  `(let ((,vars (coerce-maxima-list ,maxima-vars))
    386385         ,@(when new-vars-supplied-p
    … …  
    391390        (let ,(let ((args nil))
    392391                   (dolist (p polynomials args)
    393                      (setf args (cons `(,p (maxima->poly ,p ,vars ,ring-and-order)) args)))
     392                     (setf args (cons `(,p (maxima->poly ,p ,vars *ring-and-order*)) args)))
    394393                   (dolist (p poly-lists args)
    395                      (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*)) args)))
    396395                   (dolist (p poly-list-lists args)
    397                      (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*)) args))))
    398397          . ,body))
    399398      ,(if new-vars-supplied-p
Note: See TracChangeset for help on using the changeset viewer.