`(let ((,instance-name
(make-instance ',class-name
:name ',method-name)))
(setf (method-body ,instance-name)
#'(lambda() ,@method-body))
(add-test (suite ,instance-name) ,instance-name)
`(let ((,instance-name
(make-instance ',class-name
:name ',method-name)))
(setf (method-body ,instance-name)
#'(lambda() ,@method-body))
(add-test (suite ,instance-name) ,instance-name)