(defadvice eldoc-display-message-no-interference-p
  (after slime-autodoc-message-ok-p)
  (when slime-autodoc-mode
    (setq ad-return-value
	  (and ad-return-value
	       ;; Display arglist only when the minibuffer is
	       ;; inactive, e.g. not on `C-x C-f'.
	       (not (active-minibuffer-window))
	       ;; Display arglist only when inferior Lisp will be able
	       ;; to cope with the request.
	       (slime-background-activities-enabled-p)))
    (slime-bind-keys slime-doc-map t '((?A slime-autodoc-manually))))
  ad-return-value))

(setf slime-mode-hook (delete 'slime-autodoc--on slime-mode-hook))
(add-hook 'slime-mode-hook 'slime-autodoc--off)