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