Breaks if slime is not launched -> ask or automatically launch slime

[informatimago]

If slime is not launched, there's an error; Please ask the user or automatically launch slime (depending on a customization-variable).

Debugger entered--Lisp error: (error "Not connected.")
  signal(error ("Not connected."))
  error("Not connected.")
  (or (slime-auto-start) (error "Not connected."))
  (cond ((and (not conn) slime-net-processes) (or (slime-auto-select-connection) (error "No default connection selected."))) ((not conn) (or (slime-auto-start) (error "Not connected."))) ((not (eq (process-status conn) 'open)) (error "Connection closed.")) (t conn))
  (let ((conn (slime-current-connection))) (cond ((and (not conn) slime-net-processes) (or (slime-auto-select-connection) (error "No default connection selected."))) ((not conn) (or (slime-auto-start) (error "Not connected."))) ((not (eq (process-status conn) 'open)) (error "Connection closed.")) (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 (slime-connection) (error "No connection"))))
  (save-current-buffer (set-buffer (process-buffer (or process (slime-connection) (error "No connection")))) 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()
  (setq package (slime-current-package))
  (progn (setq package (slime-current-package)))
  (if (null package) (progn (setq package (slime-current-package))))
  slime-eval((cl:sort (cl:mapcar 'cl:package-name (cl:list-all-packages)) 'cl:string<))
  (closure (t) (system) (slime-eval '(cl:sort (cl:mapcar 'cl:package-name (cl:list-all-packages)) 'cl:string<)))(#<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  apply((closure (t) (system) (slime-eval '(cl:sort (cl:mapcar 'cl:package-name (cl:list-all-packages)) 'cl:string<))) #<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  #f(compiled-function (cl-cnm system) #<bytecode 0x1fe2c82053c9>)(#f(compiled-function (&rest cnm-args) #<bytecode 0x1fe2c8222a61>) #<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  apply(#f(compiled-function (cl-cnm system) #<bytecode 0x1fe2c82053c9>) #f(compiled-function (&rest cnm-args) #<bytecode 0x1fe2c8222a61>) #<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  #f(compiled-function (&rest args) #<bytecode 0x1fe2c8222a45>)(#<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  apply(#f(compiled-function (&rest args) #<bytecode 0x1fe2c8222a45>) #<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668> nil)
  esb:list-packages(#<esb:common-lisp-system esb:common-lisp-system-1fe2c8513668>)
  (let ((packages (esb:list-packages esb:current-browser-system))) (save-current-buffer (set-buffer esb:packages-buffer) (setq buffer-read-only nil) (erase-buffer) (let ((--dolist-tail-- packages)) (while --dolist-tail-- (let ((package-name (car --dolist-tail--))) (insert-button (if esb:downcase-definition-names (downcase package-name) package-name) 'action #'(lambda ... ...) 'face 'esb:definition-list-item-face 'follow-link t 'help-echo "Browse package") (newline) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq buffer-read-only t)) (wlf:select esb:wm 'packages) (esb:select-package (first packages)))
  esb:update-packages-buffer()
  system-browser()
  lisp-system-browser()
  funcall-interactively(lisp-system-browser)

[mmontone]

👍