Remove warning about fixture redefinition

diff --git a/src/fixture.lisp b/src/fixture.lisp
index b43cb1e..26e9933 100644 (file)
--- a/src/fixture.lisp
+++ b/src/fixture.lisp
@@ -22,11 +22,6 @@
   (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)