# -*- mode: snippet -*-
# name: cl-loop-advice
# key: cla
# --
(cl-loop
for f in 
'(${1:functions})
do
(eval
`(defadvice ,f (${2:type} emacspeak pre act comp)
  "Provide auditory feedback."
  (when (ems-interactive-p)
  $0))))
