From c20dba484e44f476482a9c0e718ec7ba8dd25577 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 29 Jul 2012 19:02:20 +0200 Subject: [PATCH] Remove warning about fixture redefinition --- src/fixture.lisp | 5 ----- 1 file changed, 5 deletions(-) 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) -- 1.7.10.4