- (setf (get-test ',name)
- (make-instance 'test-case
- :name ',name
- :runtime-package (find-package ,(package-name *package*))
- :test-lambda
- (named-lambda ,lambda-name ()
- ,@ (ecase compile-at
- (:run-time `((funcall
- (let ((*package* (find-package ',(package-name *package*))))
- (compile ',inner-lambda-name
- '(lambda () ,@effective-body))))))
- (:definition-time effective-body)))
- :description ,description
- :depends-on ',depends-on
- :collect-profiling-info ,profile))
- (setf (gethash ',name (tests ,suite-form)) ',name)
+ (register-test ',name ,description ',effective-body ,suite-form ',depends-on ,compile-at ,profile)