mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

terminate-process: improve error message

Browse source
This commit is contained in:
Marius Gerbershagen 2023-02-25 21:39:33 +01:00
parent 828b2b482a
commit 115b52f9f5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/process.lsp
View file

@ -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))))))