Changeset 2211 for branches/f4grobner

Timestamp:

2015-06-18T09:53:08-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/monom.lisp (modified) (1 diff)

branches/f4grobner/monom.lisp

@@ -79 +79 @@
                                             (length exponents))
                                            (t 
-                                            (error "You must provide DIMENSION or EXPONENTS")))
-        (slot-value self 'exponents) (cond 
-                                       ;; when exponents are supplied
-                                       (exponents-supplied-p
-                                        (when (and dimension-suppied-p
-                                                   (/= dimension (length exponents)))
-                                          (error "EXPONENTS must have length DIMENSION"))
-                                        (make-array (list dimension) :initial-contents exponents
-                                                    :element-type 'exponent))
-                                       ;; when all exponents are to be identical
-                                       (exponent-supplied-p
-                                        (make-array (list dimension) :initial-element exponent
-                                                    :element-type 'exponent))
-                                       ;; otherwise, all exponents are zero
-                                       (t 
-                                        (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
+                                            (error "You must provide DIMENSION or EXPONENTS"))))
+  (slot-value self 'exponents) (cond 
+                                 ;; when exponents are supplied
+                                 (exponents-supplied-p
+                                  (when (and dimension-suppied-p
+                                             (/= dimension (length exponents)))
+                                    (error "EXPONENTS must have length DIMENSION"))
+                                  (make-array (list dimension) :initial-contents exponents
+                                              :element-type 'exponent))
+                                 ;; when all exponents are to be identical
+                                 (exponent-supplied-p
+                                  (make-array (list dimension) :initial-element exponent
+                                              :element-type 'exponent))
+                                 ;; otherwise, all exponents are zero
+                                 (t 
+                                  (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;