Mine

defun compilation-exit-autoclose (status code msg)
  (if (eq status 'exit)
      (if (zerop code)
	  (progn
	    (bury-buffer)
	    (delete-window (get-buffer-window (get-buffer "*compilation*"))))))
  (cons msg code))
(setq compilation-exit-message-function 'compilation-exit-autoclose)