Changeset 3297 for branches/f4grobner/monom.lisp
- Timestamp:
- 2015-06-23T09:10:27-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3296 r3297 75 75 ;; (MAKE-INSTANCE :DIMENSION 3 :EXPONENT 7) --> #<MONOM DIMENSION=3 EXPONENTS=#(7 7 7)> 76 76 ;; 77 (defmethod shared-initialize :after ((self monom) slot-names78 &key79 80 81 82 &allow-other-keys77 (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 83 83 ) 84 (flet ((slot-accessible-p (slot-name))85 (or (eq slot-names t) (member 'dimension slot-names)))86 84 (when (and dimension-supplied-p (slot-accessible-p 'dimension)) 87 85 (setf (slot-value self 'dimension) dimension))
Note:
See TracChangeset
for help on using the changeset viewer.