(defflavor foo (a b)())
(defmethod (foo :test) ()
  (setq a 3))