8063b02a80
After some experimentation, calling `sly` non-interactively when no Slynk connection involves some strange async affects which displease the REPL-opening code. Instead, we start the Slynk process, wait while it loads, and then finally connect with the usual `sly-mrepl`, whose Elisp would have been loaded by this point.
19 lines
710 B
EmacsLisp
19 lines
710 B
EmacsLisp
;;; lang/common-lisp/autoload/common-lisp.el -*- lexical-binding: t; -*-
|
|
|
|
;; HACK Fix #1772: void-variable sly-contribs errors due to sly packages (like
|
|
;; `sly-macrostep') trying to add to `sly-contribs' before it is defined.
|
|
;;;###autoload (defvar sly-contribs '(sly-fancy))
|
|
|
|
;;;###autoload
|
|
(defun +lisp/open-repl ()
|
|
"Open the Sly REPL."
|
|
(interactive)
|
|
(require 'sly)
|
|
(if (sly-connected-p) (sly-mrepl)
|
|
(sly nil nil t)
|
|
(cl-labels ((recurse (attempt)
|
|
(sleep-for 1)
|
|
(cond ((sly-connected-p) (sly-mrepl))
|
|
((> attempt 5) (error "Failed to start Slynk process."))
|
|
(t (recurse (1+ attempt))))))
|
|
(recurse 1))))
|