Changeset 763 for branches

Timestamp:

2015-06-08T21:37:57-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monomial.lisp

@@ -78 +78 @@
                                         (initial-exponent  #() initial-exponent-supplied-p)
                                         (exponents (cond 
-                                                     ;; When exponents are supplied
+                                                     ;; when exponents are supplied
                                                      (initial-exponents-supplied-p
                                                       (make-array (list dimension) :initial-contents initial-exponents
                                                                   :element-type 'exponent))
-                                                     ;; When all exponents are to be identical
+                                                     ;; when all exponents are to be identical
                                                      (initial-exponent-supplied-p
                                                       (make-array (list dimension) :initial-element initial-exponent
                                                                   :element-type 'exponent))
-                                                     ;; Otherwise, all exponents are zero
+                                                     ;; otherwise, all exponents are zero
                                                      (t (make-array (list dimension) :element-type 'exponent :initial-element 0)))))))
   (exponents nil :type (vector exponent *)))