From f978913e4069270e7a13c74aa9ed381d26733b58 Mon Sep 17 00:00:00 2001 From: Markus Klink Date: Tue, 2 Feb 2021 15:03:54 +0100 Subject: [PATCH] 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. --- modules/lang/common-lisp/doctor.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/modules/lang/common-lisp/doctor.el b/modules/lang/common-lisp/doctor.el index 891f5ae8e..3c1842726 100644 --- a/modules/lang/common-lisp/doctor.el +++ b/modules/lang/common-lisp/doctor.el @@ -1,6 +1,7 @@ ;;; lang/common-lisp/doctor.el -*- lexical-binding: t; -*- (when (require 'sly nil t) - (unless (executable-find inferior-lisp-program) - (warn! "Couldn't find your `inferior-lisp-program' (%s). Is it installed?" - inferior-lisp-program))) + (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))))