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 2220 for branches/f4grobner


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r2219 r2220  
    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))
    71   "A constructor (factory) of monomials. If DIMENSION is given, a
    72 sequence of DIMENSION elements of type EXPONENT is constructed, where
    73 individual elements are the value of EXPONENT, which defaults
    74 to 0.  Alternatively, all elements may be specified as a list
    75 EXPONENTS."
    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)
     66(defmethod initialize-instance :after ((self monom) &rest args &key)
     67  (format t "INITIALIZE-INSTANCE-INSTANCE called with SELF ~A, args ~A.~%"
     68          self args)
    8169  (call-next-method))
    82 
    83 (defmethod make-instance :before ((self monom)
     70         
     71
     72(defmethod make-instance :around ((self monom)
    8473                                  &key
    8574                                    (dimension nil dimension-suppied-p)
Note: See TracChangeset for help on using the changeset viewer.