Changeset 2383
- Timestamp:
- 2015-06-18T21:45:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2382 r2383 74 74 |# 75 75 76 (defmethod shared-initialize :after((self monom) slot-names77 78 79 80 81 82 76 (defmethod shared-initialize ((self monom) slot-names 77 &key 78 dimension 79 exponents 80 exponent 81 &allow-other-keys 82 ) 83 83 (if (eq slot-names t) (setf slot-names '(dimension exponents))) 84 84 (dolist (slot-name slot-names)
Note:
See TracChangeset
for help on using the changeset viewer.