close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2216 for branches


Ignore:
Timestamp:
2015-06-18T10:41:17-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2215 r2216  
    6464  (princ (slot-value m 'exponents) stream))
    6565
    66 (defmethod initialize-instance ((self monom)
    67                                 &key
    68                                   (dimension nil dimension-suppied-p)
    69                                   (exponents nil exponents-supplied-p)
    70                                   (exponent  nil exponent-supplied-p))
     66(defmethod make-instance :before ((self monom)
     67                                  &key
     68                                    (dimension nil dimension-suppied-p)
     69                                    (exponents nil exponents-supplied-p)
     70                                    (exponent  nil exponent-supplied-p))
    7171  "A constructor (factory) of monomials. If DIMENSION is given, a
    7272sequence of DIMENSION elements of type EXPONENT is constructed, where
     
    7474to 0.  Alternatively, all elements may be specified as a list
    7575EXPONENTS."
    76   (format t "INITIALIZE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
     76  (format t "MAKE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
    7777          dimension dimension-suppied-p
    7878          exponents exponents-supplied-p
Note: See TracChangeset for help on using the changeset viewer.