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


Ignore:
Timestamp:
2015-06-18T09:42:07-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2209 r2210  
    7474to 0.  Alternatively, all elements may be specified as a list
    7575EXPONENTS."
    76   (setf (slot-value self 'dimension) (cond (dimension-suppied-p dimension)
    77                                            (exponents-supplied-p (length exponents))
    78                                            (t (error "You must provide DIMENSION or EXPONENTS")))
     76  (setf (slot-value self 'dimension) (cond (dimension-suppied-p
     77                                            dimension)
     78                                           (exponents-supplied-p
     79                                            (length exponents))
     80                                           (t
     81                                            (error "You must provide DIMENSION or EXPONENTS")))
    7982        (slot-value self 'exponents) (cond
    8083                                       ;; when exponents are supplied
    8184                                       (exponents-supplied-p
    82                                         (when (and dimension-suppied-p (/= dimension (length exponents)))
     85                                        (when (and dimension-suppied-p
     86                                                   (/= dimension (length exponents)))
    8387                                          (error "EXPONENTS must have length DIMENSION"))
    8488                                        (make-array (list dimension) :initial-contents exponents
Note: See TracChangeset for help on using the changeset viewer.