(call-next-method)))
(defmethod initialize-instance :after
- ((slot filtered-direct-slot-definition) &key &allow-other-keys)
+ ((slot filtered-direct-slot-definition) &key)
(with-slots (filter) slot
(when (and (consp filter)
(or (eq (car filter) 'function)
returning a non-nil value."))
(defmethod shared-initialize :after
- ((class predicate-class-mixin) slot-names &key &allow-other-keys)
+ ((class predicate-class-mixin) slot-names &key)
(declare (ignore slot-names))
(with-slots (predicates) class
(dolist (predicate predicates)