Insert BODY into the fixture named FIXTURE-NAME. See Also: DEF-FIXTURE
(defmacro with-fixture (fixture-name args &body body)
"Insert BODY into the fixture named FIXTURE-NAME.
See Also: DEF-FIXTURE"
(assert (get-fixture fixture-name)
(fixture-name)
"Unknown fixture ~S." fixture-name)
(destructuring-bind (largs &rest lbody) (get-fixture fixture-name)
`(macrolet ((&body () '(progn ,@body)))
(funcall (lambda ,largs ,@lbody) ,@args))))Source Context