(when (consp name)
(remf (cdr name) :suite))
(destructuring-bind (name &key depends-on (compile-at :run-time) fixture profile)
(when (consp name)
(remf (cdr name) :suite))
(destructuring-bind (name &key depends-on (compile-at :run-time) fixture profile)