Changeset 2215 for branches

Timestamp:

2015-06-18T10:36:40-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/monom.lisp

@@ -64 +64 @@
   (princ (slot-value m 'exponents) stream))
 
-(defmethod initialize-instance :after ((self monom)
-                                       &key
-                                         (dimension nil dimension-suppied-p)
-                                         (exponents nil exponents-supplied-p)
-                                         (exponent  nil exponent-supplied-p))
+(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
@@ -74 +74 @@
 to 0.  Alternatively, all elements may be specified as a list
 EXPONENTS."
-  (format t "INITIALIZE-INSTANCE called with SELF ~A, DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
-          self dimension dimension-suppied-p 
+  (format t "INITIALIZE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
+          dimension dimension-suppied-p 
           exponents exponents-supplied-p
           exponent exponent-supplied-p)
+  #|
   (let ((new-dimension (cond (dimension-suppied-p dimension)
                              (exponents-supplied-p 
@@ -95 +96 @@
                           (t 
                            (make-array (list dimension) :element-type 'exponent :initial-element 0)))))
-))
+  |#
+  (call-next-method))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;