+(defun (setf get-fixture) (value key)
+ (setf (gethash key *fixture*) value))
+
+(defun rem-fixture (key)
+ (remhash key *fixture*))
+
+(defmacro def-fixture (name (&rest args) &body body)
+ "Defines a fixture named NAME. At \"evaluation time\" (not macro
+expansion time) `BODY` will be run, however `BODY` can call the local
+macro `&body` which will expand to the body passed to the
+`with-fixture` call.
+
+See Also: `WITH-FIXTURE`"