diff --git a/stateful/container.lisp b/stateful/container.lisp index 3e83d9e553ee48c9cbd2c57cf93b47c6fc11d46f..39c0f3aea2d1d551457ba80fd08e4934b37b624a 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)