(defparameter *listeners* (make-hash-table :test 'equal))

;; Instead of typing this everytime
(setf (gethash "click" *listeners*)
      #'(lambda ()
          (do stuff)))

(setf (gethash "dblclick" *listeners*)
      #'(lambda ()
          (do other stuff)))

;; You can add a simple macro
(defmacro deflistener (name &body body)
  `(setf (gethash ,name *listeners*)
         #'(lambda ()
             ,@body)))

;; And use it like this
(deflistener "click"
  (do stuff))

(deflistener "dblclick"
  (do other stuff))