X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ffixture.lisp;h=32ca2dde04fe1f17b65063e9c1c17c151f0dcf86;hb=3318adf2a6ee1a055fff9db1ab2ba9e59fa90792;hp=325933c0b9864a64916de9a3ae3f3bce6ada9f20;hpb=1454981ac5f4f7ea8fe741a8125efbf0b09497ea;p=fiveam.git

diff --git a/src/fixture.lisp b/src/fixture.lisp
index 325933c..32ca2dd 100644
--- a/src/fixture.lisp
+++ b/src/fixture.lisp
@@ -33,6 +33,9 @@ See Also: WITH-FIXTURE
   "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))))