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


Ignore:
Timestamp:
2015-06-08T22:07:31-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/term.lisp

    r772 r773  
    3535             (:include monom)
    3636             ;; BOA constructor. TODO: avoid code duplication with MONOM?
    37              (:constructor make-monom (dimension
    38                                         &key
    39                                         (initial-exponents #() initial-exponents-supplied-p)
    40                                         (initial-exponent  #() initial-exponent-supplied-p)
    41                                         (exponents (cond
    42                                                      ;; when exponents are supplied
    43                                                      (initial-exponents-supplied-p
    44                                                       (make-array (list dimension) :initial-contents initial-exponents
    45                                                                   :element-type 'exponent))
    46                                                      ;; when all exponents are to be identical
    47                                                      (initial-exponent-supplied-p
    48                                                       (make-array (list dimension) :initial-element initial-exponent
    49                                                                   :element-type 'exponent))
    50                                                      ;; otherwise, all exponents are zero
    51                                                      (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))
    52                                         coeff))
     37             (:constructor make-term (dimension
     38                                      &key
     39                                      (initial-exponents #() initial-exponents-supplied-p)
     40                                      (initial-exponent  #() initial-exponent-supplied-p)
     41                                      (exponents (cond
     42                                                   ;; when exponents are supplied
     43                                                   (initial-exponents-supplied-p
     44                                                    (make-array (list dimension) :initial-contents initial-exponents
     45                                                                :element-type 'exponent))
     46                                                   ;; when all exponents are to be identical
     47                                                   (initial-exponent-supplied-p
     48                                                    (make-array (list dimension) :initial-element initial-exponent
     49                                                                :element-type 'exponent))
     50                                                   ;; otherwise, all exponents are zero
     51                                                   (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))
     52                                      coeff))
    5353             ;;(:constructor make-term-variable)
    5454             ;;(:type list)
Note: See TracChangeset for help on using the changeset viewer.