Use EQL Methods With Symbols
(defmethod handle-event ((event (eql 'redraw)) window)
(defmethod handle-event ((event (eql 'iconify)) window)
Like a case statement but more modular and more easily extended
The drawback is that method dispatch is a bit slower