f978913e40
Many users of sly also use roswell and set the inferior-lisp-program to values like "ros run" or "ros -Q run". This is not detected correctly by executable-find. Hence we try to extract the first part of the program name.
7 lines
311 B
EmacsLisp
7 lines
311 B
EmacsLisp
;;; lang/common-lisp/doctor.el -*- lexical-binding: t; -*-
|
|
|
|
(when (require 'sly nil t)
|
|
(let ((prog-name (car (split-string inferior-lisp-program))))
|
|
(unless (executable-find prog-name)
|
|
(warn! "Couldn't find your `inferior-lisp-program' (%s). Is it installed?"
|
|
inferior-lisp-program))))
|