Your example works for me if I change:
(defmethod acceptor-status-message (acceptor (http-status-code (eql 404)) &key) (display-404-page))
to:
(defmethod hunchentoot:acceptor-status-message (acceptor (http-status-code (eql 404)) &key) (display-404-page))
-Bill