Changeset 2204 for branches

Timestamp:

2015-06-18T09:28:59-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -66 +66 @@
 (defmethod make-instance :before ((self monom)
                                   (dimension nil dimension-suppied-p)
-                                  (initial-exponents nil initial-exponents-supplied-p)
-                                  (initial-exponent  nil initial-exponent-supplied-p))
+                                  (exponents nil exponents-supplied-p)
+                                  (exponent  nil exponent-supplied-p))
   "A constructor (factory) of monomials. If DIMENSION is given, a
 sequence of DIMENSION elements of type EXPONENT is constructed, where
-individual elements are the value of INITIAL-EXPONENT, which defaults
+individual elements are the value of EXPONENT, which defaults
 to 0.  Alternatively, all elements may be specified as a list
-INITIAL-EXPONENTS."
+EXPONENTS."
   (with-slots (dimension exponents)
       self
     (setf dimension (cond (dimension-suppied-p dimension)
-                          (initial-exponents-supplied-p (length initial-exponents))
-                          (t (error "You must provide DIMENSION or INITIAL-EXPONENTS")))
+                          (exponents-supplied-p (length exponents))
+                          (t (error "You must provide DIMENSION or EXPONENTS")))
           exponents (cond 
                       ;; when exponents are supplied
-                      (initial-exponents-supplied-p
-                       (when (and dimension-suppied-p (/= dimension (length initial-exponents)))
-                         (error "INITIAL-EXPONENTS must have length DIMENSION"))
-                       (make-array (list dimension) :initial-contents initial-exponents
+                      (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
-                      (initial-exponent-supplied-p
-                       (make-array (list dimension) :initial-element initial-exponent
+                      (exponent-supplied-p
+                       (make-array (list dimension) :element exponent
                                    :element-type 'exponent))
                       ;; otherwise, all exponents are zero
                       (t 
-                       (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
+                       (make-array (list dimension) :element-type 'exponent :element 0)))))
   (call-next-method))