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 2374


Ignore:
Timestamp:
2015-06-18T21:26:45-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2373 r2374  
    6464
    6565;; Debug calls to initialize-instance
    66 (defmethod shared-initialize ((self monom)
     66(defmethod shared-initialize ((self monom) slot-names
    6767                              &rest
    68                                 args
     68                                initargs
    6969                              &key
    7070                                &allow-other-keys)
    71   (format t "MONOM::INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args)
     71  (format t "MONOM::SHARED-INITIALIZE called with:~&SLOT-NAMES: ~W~&INITARGS: ~W.~%" slot-names initargs)
    7272  (call-next-method))
    7373
    74 
    7574(defmethod shared-initialize :after ((self monom) slot-names
    76                                      ;;&rest initargs
    7775                                     &key
    7876                                       dimension
    … …  
    8179                                     &allow-other-keys
    8280                                       )
    83   ;;(format t "MONOM::SHARED-INITIALIZE called with:~&SLOT-NAMES: ~W~&INITARGS: ~W.~%" slot-names initargs)
    8481  (if (eq slot-names t) (setf slot-names '(dimension exponents)))
    8582  (dolist (slot-name slot-names)
Note: See TracChangeset for help on using the changeset viewer.