Changeset 2216

Timestamp:

2015-06-18T10:41:17-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

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))
+(defmethod make-instance :before ((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
@@ -74 +74 @@
 to 0.  Alternatively, all elements may be specified as a list
 EXPONENTS."
-  (format t "INITIALIZE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
+  (format t "MAKE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
           dimension dimension-suppied-p 
           exponents exponents-supplied-p