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 2261 for branches/f4grobner


Ignore:
Timestamp:
2015-06-18T13:51:33-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2260 r2261  
    6666          (slot-value self 'exponents)))
    6767
    68 (defmethod initialize-instance :after ((self monom)
    69                                         ;;&rest args
    70                                         &key
    71                                           (dimension nil dimension-suppied-p)
    72                                           (exponents nil exponents-supplied-p)
    73                                           (exponent  nil exponent-supplied-p)
    74                                         &allow-other-keys
    75                                         )
     68(defmethod initialize-instance ((self monom)
     69                                ;;&rest args
     70                                &key
     71                                  (dimension nil dimension-suppied-p)
     72                                  (exponents nil exponents-supplied-p)
     73                                  (exponent  nil exponent-supplied-p)
     74                                &allow-other-keys
     75                                  )
    7676  ;;(format t "INITIALIZE-INSTANCE called with:~&~TSELF:~W ~&~TARGS: ~W.~%" self args)
    7777  (let* ((new-dimension (cond (dimension-suppied-p dimension)
    78                              (exponents-supplied-p
    79                               (length exponents))
    80                              (t
    81                               (error "You must provide DIMENSION or EXPONENTS"))))
    82         (new-exponents  (cond
    83                           ;; when exponents are supplied
    84                           (exponents-supplied-p
    85                            (make-array (list new-dimension) :initial-contents exponents
    86                                        :element-type 'exponent))
    87                           ;; when all exponents are to be identical
    88                           (exponent-supplied-p
    89                            (make-array (list new-dimension) :initial-element exponent
    90                                        :element-type 'exponent))
    91                           ;; otherwise, all exponents are zero
    92                           (t
    93                            (make-array (list new-dimension) :element-type 'exponent :initial-element 0)))))))
     78                              (exponents-supplied-p
     79                               (length exponents))
     80                              (t
     81                               (error "You must provide DIMENSION or EXPONENTS"))))
     82         (new-exponents  (cond
     83                           ;; when exponents are supplied
     84                           (exponents-supplied-p
     85                            (make-array (list new-dimension) :initial-contents exponents
     86                                        :element-type 'exponent))
     87                           ;; when all exponents are to be identical
     88                           (exponent-supplied-p
     89                            (make-array (list new-dimension) :initial-element exponent
     90                                        :element-type 'exponent))
     91                           ;; otherwise, all exponents are zero
     92                           (t
     93                            (make-array (list new-dimension) :element-type 'exponent :initial-element 0)))))))
    9494
    9595
Note: See TracChangeset for help on using the changeset viewer.