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 1809


Ignore:
Timestamp:
2015-06-15T12:50: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

    r1808 r1809  
    372372;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    373373
    374 (defmacro define-unop ((maxima-name fun-name &key (env :ring-and-order))
     374(defmacro define-unop ((maxima-name fun-name (&rest args) &key (env :ring-and-order))
    375375                       &optional
    376376                         (documentation nil documentation-supplied-p)
    … …  
    381381                                    (:ring 'ring))))
    382382  "Define a MAXIMA-level unary operator MAXIMA-NAME corresponding to unary function FUN-NAME."
    383   `(defmfun ,maxima-name (p vars)
     383  `(defmfun ,maxima-name (,@args vars)
    384384     ,@(when documentation-supplied-p (list documentation))
    385      (with-ring-and-order ((vars) :polynomials (p) :value-type :polynomial)
    386        (,fun-name ,env-arg p))))
     385     (with-ring-and-order ((vars) :polynomials (,@args) :value-type :polynomial)
     386       (,fun-name ,env-arg ,@args p))))
    387387
    388388(defmacro define-binop ((maxima-name fun-name)
Note: See TracChangeset for help on using the changeset viewer.