Changeset 2208 for branches

Timestamp:

2015-06-18T09:38:42-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -74 +74 @@
 to 0.  Alternatively, all elements may be specified as a list
 EXPONENTS."
-  (with-slots (dimension exponents)
-      self
-    (setf dimension (cond (dimension-suppied-p dimension)
-                          (exponents-supplied-p (length exponents))
-                          (t (error "You must provide DIMENSION or EXPONENTS")))
-          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)))))
+  (setf (slot-value self 'dimension) (cond (dimension-suppied-p dimension)
+                                           (exponents-supplied-p (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))))
   (call-next-method))