From 3318adf2a6ee1a055fff9db1ab2ba9e59fa90792 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Sat, 10 Dec 2005 15:41:19 +0100 Subject: [PATCH] Supply slightly less cryptic error messages when mispelling the name of a fixture passed to with-fixture --- src/fixture.lisp | 3 +++ 1 file changed, 3 insertions(+) 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)))) -- 1.7.10.4