my "defmethod" yasnippet for cl.

gistfile1.txt

# name : defmethod
# group : defmethod
# contributor : imakado
# --
(defmethod $1 ((${2:this} ${3:`(let ((class-name
       (save-excursion
         (and (re-search-backward (rx "(" symbol-start "defclass" (+ space)
                                      (group (+ (or (syntax word)
                                                    (syntax symbol)))))
                                  nil t)
              (match-string-no-properties 1)))))
  (or class-name ""))`})$0)
  ""