Remove warning about fixture redefinition
authorStelian Ionescu <sionescu@cddr.org>
Sun, 29 Jul 2012 17:02:20 +0000 (19:02 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Sun, 29 Jul 2012 17:02:20 +0000 (19:02 +0200)
src/fixture.lisp

index b43cb1e..26e9933 100644 (file)
   (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)