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 2219


Ignore:
Timestamp:
2015-06-18T10:51:03-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2218 r2219  
    6363(defmethod print-object ((m monom) stream)
    6464  (princ (slot-value m 'exponents) stream))
     65
     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))
     71  "A constructor (factory) of monomials. If DIMENSION is given, a
     72sequence of DIMENSION elements of type EXPONENT is constructed, where
     73individual elements are the value of EXPONENT, which defaults
     74to 0.  Alternatively, all elements may be specified as a list
     75EXPONENTS."
     76  (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%"
     77          self
     78          dimension dimension-suppied-p
     79          exponents exponents-supplied-p
     80          exponent exponent-supplied-p)
     81  (call-next-method))
    6582
    6683(defmethod make-instance :before ((self monom)
Note: See TracChangeset for help on using the changeset viewer.