X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Ffixture.lisp;h=26e993304fd95518bddc0813b8f66deb70832e01;hb=35dc0e063d9f601afdc1202e4724628525e723f0;hp=b43cb1e553ba6fd8fe1f84c312771e289a96b5cb;hpb=d58c9adefaafa525332590fb38f9faefa4490612;p=fiveam.git

diff --git a/src/fixture.lisp b/src/fixture.lisp
index b43cb1e..26e9933 100644
--- 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)