From dba1453224ca5d9c4f478d2565d4fe35f39e9f8d Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 26 Dec 2012 16:25:33 -0500
Subject: [PATCH] Fix wrongful pop-item! method (found thru lwper warnings).

---
 stateful/container.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/stateful/container.lisp b/stateful/container.lisp
index 3e83d9e..39c0f3a 100644
--- a/stateful/container.lisp
+++ b/stateful/container.lisp
@@ -62,7 +62,7 @@
 (defgeneric pop-item! (container)
   (:method :before (container)
            (check-not-empty container))
-  (:method :before (container)
+  (:method (container)
            (pop-least-item! container)))
 (defgeneric pop-last-item! (container)
   (:method :before (container)
-- 
GitLab