Changeset 2269 for branches

Timestamp:

2015-06-18T14:00:03-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -75 +75 @@
                                   )
   (format t "INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args)
-  (let* ((new-dimension (cond (dimension-suppied-p dimension)
-                              (exponents-supplied-p 
+  (let* ((new-dimension (cond (dimension dimension)
+                              (exponents
                                (length exponents))
                               (t 
-                               (error "You must provide DIMENSION or EXPONENTS"))))
+                               (error "DIMENSION or EXPONENTS must not be NIL"))))
          (new-exponents  (cond 
                            ;; when exponents are supplied
-                           (exponents-supplied-p
-                            (make-array (list new-dimension) :initial-contents exponents
-                                        :element-type 'exponent))
+                           (exponents
+                            (make-array (list new-dimension) :initial-contents exponents))
                            ;; when all exponents are to be identical
-                           (exponent-supplied-p
+                           (exponent
                             (make-array (list new-dimension) :initial-element exponent
                                         :element-type 'exponent))