,@(when documentation `((:documentation ,documentation))))
(defmethod ,name (,@args (type symbol) &rest args)
(let ((class (find-class type nil)))
,@(when documentation `((:documentation ,documentation))))
(defmethod ,name (,@args (type symbol) &rest args)
(let ((class (find-class type nil)))