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


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2255 r2256  
    7575                                         )
    7676  ;;(format t "INITIALIZE-INSTANCE called with:~&~TSELF:~W ~&~TARGS: ~W.~%" self args)
    77   (let ((new-dimension (cond (dimension-suppied-p dimension)
     77  (let* ((new-dimension (cond (dimension-suppied-p dimension)
    7878                             (exponents-supplied-p
    7979                              (length exponents))
    … …  
    8787                          ;; when all exponents are to be identical
    8888                          (exponent-supplied-p
    89                            (make-array (list dimension) :initial-element exponent
     89                           (make-array (list new-dimension) :initial-element exponent
    9090                                       :element-type 'exponent))
    9191                          ;; otherwise, all exponents are zero
    9292                          (t
    93                            (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
     93                           (make-array (list new-dimension) :element-type 'exponent :initial-element 0)))))
    9494    (call-next-method :dimension new-dimension :exponents new-exponents)))
    9595
Note: See TracChangeset for help on using the changeset viewer.