backtrace()
  (or (slime-auto-connect) (backtrace) (error "Not connected."))
  (cond ((and ... slime-net-processes) (or ... ...)) ((not conn) (or ... ... ...)) ((not ...) (error "Connection closed.")) (t conn))
  (let ((conn ...)) (cond (... ...) (... ...) (... ...) (t conn)))
  slime-connection()
  (or process (slime-connection) (error "No connection"))
  (process-buffer (or process (slime-connection) (error "No connection")))
  (set-buffer (process-buffer (or process ... ...)))
  (save-current-buffer (set-buffer (process-buffer ...)) slime-lisp-package:connlocal)
  (with-current-buffer (process-buffer (or process ... ...)) slime-lisp-package:connlocal)
  (slime-with-connection-buffer (process) slime-lisp-package:connlocal)
  slime-lisp-package()
  (or (slime-search-buffer-package) (slime-lisp-package))
  slime-repl-find-buffer-package()
  funcall(slime-repl-find-buffer-package)
  slime-find-buffer-package()
  (save-restriction (widen) (slime-find-buffer-package))
  (or slime-buffer-package (save-restriction (widen) (slime-find-buffer-package)))
  slime-current-package()
  (let* ((conn ...) (local ...) (pkg ...)) (cond (... ...) (...)))
  slime-modeline-string()
  eval((slime-modeline-string))