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 3299


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/monom.lisp

    r3298 r3299  
    7575;; (MAKE-INSTANCE :DIMENSION 3 :EXPONENT 7) --> #<MONOM DIMENSION=3 EXPONENTS=#(7 7 7)>
    7676;;
    77 (defmethod initialize-instance :after ((self monom) slot-names
     77(defmethod initialize-instance :after ((self monom)
    7878                                       &key
    7979                                         (dimension 0 dimension-supplied-p)
     
    9494
    9595  ;; when all exponents are to be identical
    96   (when (and exponent-supplied-p (slot-accessible-p 'exponents))
     96  (when exponent-supplied-p
    9797    (unless (slot-boundp self 'dimension)
    9898      (error "Slot DIMENSION is unbound, but must be known if EXPONENT is supplied."))
Note: See TracChangeset for help on using the changeset viewer.