Changeset 1807 for branches

Timestamp:

2015-06-15T12:46:25-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/mx-grobner.lisp (modified) (1 diff)

branches/f4grobner/mx-grobner.lisp

@@ -373 +373 @@
 
 (defmacro define-unop ((maxima-name fun-name &key (env :ring-and-order))
-                       &optional (documentation nil documentation-supplied-p))
+                       &optional 
+                         (documentation nil documentation-supplied-p)
+                       &aux
+                         ;; The argument passed as first arg
+                         (env-arg (ecase env
+                                    (:ring-and-order 'ring-and-order)
+                                    (:ring 'ring))))
   "Define a MAXIMA-level unary operator MAXIMA-NAME corresponding to unary function FUN-NAME."
   `(defmfun ,maxima-name (p vars)
      ,@(when documentation-supplied-p (list documentation))
      (with-ring-and-order ((vars) :polynomials (p) :value-type :polynomial)
-       (,fun-name ring-and-order p))))
+       (,fun-name ,env-arg p))))
 
 (defmacro define-binop ((maxima-name fun-name)