From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 29 Jul 2012 17:02:20 +0000 (+0200)
Subject: Remove warning about fixture redefinition
X-Git-Url: http://repo.macrolet.net/gitweb/?p=fiveam.git;a=commitdiff_plain;h=c20dba484e44f476482a9c0e718ec7ba8dd25577

Remove warning about fixture redefinition
---

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)