Changeset 2219 for branches/f4grobner

Timestamp:

2015-06-18T10:51:03-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -63 +63 @@
 (defmethod print-object ((m monom) stream)
   (princ (slot-value m 'exponents) stream))
+
+(defmethod initialize-instance ((self monom)
+                                  &key
+                                    (dimension nil dimension-suppied-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 EXPONENT, which defaults
+to 0.  Alternatively, all elements may be specified as a list
+EXPONENTS."
+  (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
+          self
+          dimension dimension-suppied-p 
+          exponents exponents-supplied-p
+          exponent exponent-supplied-p)
+  (call-next-method))
 
 (defmethod make-instance :before ((self monom)