Changeset 845 for branches

Timestamp:

2015-06-09T08:40:55-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/monomial.lisp (modified) (2 diffs)

branches/f4grobner/monomial.lisp

@@ -75 +75 @@
              ;; NOTE: having a non-default constructor inhibits reading via #S(...)
              (:constructor make-monom (&key 
-                                       (dim 0)
+                                       (dimension 0)
                                        (initial-exponents #() initial-exponents-supplied-p)
                                        (initial-exponent  #() initial-exponent-supplied-p)
@@ -82 +82 @@
                                                     ;; when exponents are supplied
                                                     (initial-exponents-supplied-p
-                                                     (make-array (list dim) :initial-contents initial-exponents
+                                                     (make-array (list dimension) :initial-contents initial-exponents
                                                                  :element-type 'exponent))
                                                     ;; when all exponents are to be identical
                                                     (initial-exponent-supplied-p
-                                                     (make-array (list dim) :initial-element initial-exponent
+                                                     (make-array (list dimension) :initial-element initial-exponent
                                                                  :element-type 'exponent))
                                                     ;; otherwise, all exponents are zero
-                                                    (t (make-array (list dim) :element-type 'exponent :initial-element 0))))))
+                                                    (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))))
              )
   (exponents nil :type (vector exponent *)))