# Pastebin zzgTNUn3
(defun fire-callback (widget callback)
  (progv (special-variables callback) (special-values callback)
    (funcall (callback callback) widget)))