+(defun get-fixture (key &optional default)
+ (gethash key *fixture* default))
+
+(defun (setf get-fixture) (value key)
+ (when (gethash key *fixture*)
+ (warn "Redefining ~A in deflookup-table named ~S"
+ (let ((*package* (find-package :keyword)))
+ (format nil "~S" key))
+ 'fixture))
+ (setf (gethash key *fixture*) value))
+
+(defun rem-fixture (key)
+ (remhash key *fixture*))
+