+(defun get-fixture (key &optional default)
+ (gethash key *fixture* default))
+
+(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)