`(eval-when (:compile-toplevel :load-toplevel :execute)
(setf (get-fixture ',name) (cons ',args ',body))
',name))
(defmacro with-fixture (fixture-name (&rest args) &body body)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(setf (get-fixture ',name) (cons ',args ',body))
',name))
(defmacro with-fixture (fixture-name (&rest args) &body body)