Fix wrongful pop-item! method (found thru lwper warnings).

diff --git a/stateful/container.lisp b/stateful/container.lisp
index 3e83d9e..39c0f3a 100644 (file)
--- 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)