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 2191


Ignore:
Timestamp:
2015-06-18T08:27:22-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/term.lisp

    r2190 r2191  
    4141  ((coeff :init-arg :coeff :accessor term-coeff)))
    4242
    43 (defun make-term (&key exponents coeff)
     43(defun make-term (&key
     44                    (exponents nil exponents-supplied-p)
     45                    (monom nil monom-supplied-p)
     46                    coeff
     47                  &aux
     48                    (exponents
     49                     (cond (monom-supplied-p (monom-coefficients monom))
     50                           (exponents-supplied-p exponents)
     51                           (t (error "Either COEFFICIENTS or MONOM must be supplied.")))))
    4452  (make-instance 'term :exponents exponents :coeff coeff))
    4553
Note: See TracChangeset for help on using the changeset viewer.