Changeset 2220

Timestamp:

2015-06-18T10:55:47-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -64 +64 @@
   (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)
+(defmethod initialize-instance :after ((self monom) &rest args &key)
+  (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, args ~A.~%"
+          self args)
   (call-next-method))
-
-(defmethod make-instance :before ((self monom)
+          
+
+(defmethod make-instance :around ((self monom)
                                   &key
                                     (dimension nil dimension-suppied-p)