- t))
-
-(defmethod shared-initialize ((class event-class) names &key name type)
- (let ((class-name (or name (class-name class))))
- (unless (eq class-name 'event)
- (register-type-alias class-name 'event)))
- (call-next-method)
- (setf (slot-value class 'event-type) (first type))
- (setf (gethash (first type) *event-classes*) class))
+ t)
+
+ (defmethod shared-initialize ((class event-class) names &key name event-type)
+ (declare (ignore names))
+ (register-type-alias (or name (class-name class)) 'event)
+ (call-next-method)
+ (when event-type
+ (setf (slot-value class 'event-type) (first event-type))
+ (setf (gethash (first event-type) *event-classes*) class))))