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