doomemacs/modules/lang/common-lisp/doctor.el

;;; 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))))
Add :lang common-lisp doctor 2018-06-15 03:11:08 +02:00			`;;; lang/common-lisp/doctor.el -- lexical-binding: t; --`

			`(when (require 'sly nil t)`
Extract program name from inferior-lisp-program 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. 2021-02-02 15:03:54 +01:00			`(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))))`