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


Ignore:
Timestamp:
2015-06-18T14:16:57-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2277 r2278  
    6666          (slot-value self 'exponents)))
    6767
    68 (defmethod initialize-instance ((self monom)
    69                                 ;;&rest args
    70                                 &key
    71                                   dimension
    72                                   exponents
    73                                   exponent
    74                                 &allow-other-keys
    75                                   )
    76   ;;(format t "INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args)
     68(defmethod initialize-instance :before ((self monom)
     69                                        ;;&rest args
     70                                        &key
     71                                          dimension
     72                                          exponents
     73                                          exponent
     74                                        &allow-other-keys
     75                                          )
     76  (format t "INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args))
     77
     78(defmethod initialize-instance :after ((self monom)
     79                                       ;;&rest args
     80                                       &key
     81                                         dimension
     82                                         exponents
     83                                         exponent
     84                                       &allow-other-keys
     85                                         )
    7786  (let* ((new-dimension (cond (dimension dimension)
    7887                              (exponents
Note: See TracChangeset for help on using the changeset viewer.