(add-to-list 'display-buffer-alist (cons "\*Compile-Log\*.*" (cons #'display-buffer-no-window nil)))

(defadvice package-menu-execute (around do-not-show-compile-log (&rest args))
  (let ((display-buffer-alist (append (list (cons "\*Compile-Log\*.*" (cons #'display-buffer-no-window nil)))
                  display-buffer-alist)))
    ad-do-it))