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 2336 for branches


Ignore:
Timestamp:
2015-06-18T20:08:25-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2333 r2336  
    7777|#
    7878
    79 (defmethod initialize-instance ((self monom)
    80                                 &rest args
    81                                 &key
    82                                   dimension
    83                                   exponents
    84                                   exponent
    85                                 &allow-other-keys
    86                                   )
    87   ;;(format t "MONOM::INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args)
     79(defmethod shared-initialize ((self monom) slot-names
     80                              &rest initargs
     81                              &key
     82                                dimension
     83                                exponents
     84                                exponent
     85                              &allow-other-keys
     86                                )
     87  (format t "MONOM::SHARED-INITIALIZE called with:~&ARGS: ~W.~%" args)
    8888  (let* ((new-dimension (cond (dimension dimension)
    8989                              (exponents
Note: See TracChangeset for help on using the changeset viewer.