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.

Ignore:
Timestamp:
2015-06-23T09:10:27-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r3296 r3297  
    7575;; (MAKE-INSTANCE :DIMENSION 3 :EXPONENT 7) --> #<MONOM DIMENSION=3 EXPONENTS=#(7 7 7)>
    7676;;
    77 (defmethod shared-initialize :after ((self monom) slot-names
    78                                      &key
    79                                       (dimension 0 dimension-supplied-p)
    80                                       (exponents nil exponents-supplied-p)
    81                                       (exponent  0 exponent-supplied-p)
    82                                      &allow-other-keys
     77(defmethod initialize-instance :after ((self monom) slot-names
     78                                       &key
     79                                        (dimension 0 dimension-supplied-p)
     80                                        (exponents nil exponents-supplied-p)
     81                                        (exponent  0 exponent-supplied-p)
     82                                       &allow-other-keys
    8383                                       )
    84   (flet ((slot-accessible-p (slot-name))
    85          (or (eq slot-names t) (member 'dimension slot-names)))
    8684    (when (and dimension-supplied-p (slot-accessible-p 'dimension))
    8785      (setf (slot-value self 'dimension) dimension))
Note: See TracChangeset for help on using the changeset viewer.