@jackdaniel
sorry for the hassle, but I forgot if I asked you how you do this []
(defparameter *hook-runner*
(let* ((form `(:eval-no-wait ,(swank::process-form-for-emacs
'(run-hooks 'clim-after-hook))))
(c swank::*emacs-connection*))
(lambda ()
(swank::send (swank::mconn.control-thread c) form))))
In order to
(defmethod execute-frame-command :After
((obj application-frame) (list t))
(funcall *hook-runner*))
Obviously I'm using #swank internals to force the issue.