From 115b52f9f58d31bc6eb5089e1a5ed66f467112ab Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sat, 25 Feb 2023 21:39:33 +0100
Subject: [PATCH] terminate-process: improve error message

---
 src/lsp/process.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 608c2b007..1076ed0d8 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -71,7 +71,7 @@
          (process pid) (:object :object) :void
          "HANDLE *ph = (HANDLE*)ecl_foreign_data_pointer_safe(#1);
          int ret = TerminateProcess(*ph, -1);
-         if (ret == 0) FEerror(\"Cannot terminate the process ~A\", 1, #0);")
+         if (ret == 0) FEwin32_error(\"Cannot terminate the process ~A\", 1, #0);")
         #-windows
         (unless (zerop (si:killpid pid (if force +sigkill+ +sigterm+)))
           (error "Cannot terminate the process ~A" process))))))