;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
(defmethod shared-initialize ((class event-class) names &key name type)
(let ((class-name (or name (class-name class))))
(unless (eq class-name 'event)
(defmethod shared-initialize ((class event-class) names &key name type)
(let ((class-name (or name (class-name class))))
(unless (eq class-name 'event)