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


Ignore:
Timestamp:
2015-06-05T12:09:09-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/grobner.lisp

    r109 r110  
    352352         vars))))
    353353
    354 (defmacro define-unop (maxima-name fun-name
    355                        &optional (documentation nil documentation-supplied-p))
    356   "Define a MAXIMA-level unary operator MAXIMA-NAME corresponding to unary function FUN-NAME."
    357   `(defun ,maxima-name (p vars
    358                              &aux
    359                              (vars (coerce-maxima-list vars))
    360                              (p (parse-poly p vars)))
    361      ,@(when documentation-supplied-p (list documentation))
    362      (coerce-to-maxima :polynomial (,fun-name *maxima-ring* p) vars)))
    363 
    364 (defmacro define-binop (maxima-name fun-name
    365                         &optional (documentation nil documentation-supplied-p))
    366   "Define a MAXIMA-level binary operator MAXIMA-NAME corresponding to binary function FUN-NAME."
    367   `(defmfun ,maxima-name (p q vars
    368                              &aux
    369                              (vars (coerce-maxima-list vars))
    370                              (p (parse-poly p vars))
    371                              (q (parse-poly q vars)))
    372      ,@(when documentation-supplied-p (list documentation))
    373      (coerce-to-maxima :polynomial (,fun-name *maxima-ring* p q) vars)))
    374 
     354
Note: See TracChangeset for help on using the changeset viewer.