From 2be35dd474e5758f7a1d452efbdbc1c80ca88ac3 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Mon, 8 Jul 2024 17:52:17 +0200
Subject: [PATCH] Better naming for the binary

---
 create-core.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/create-core.lisp b/create-core.lisp
index b252376..47520f0 100644
--- a/create-core.lisp
+++ b/create-core.lisp
@@ -8,7 +8,8 @@
 (quicklisp-setup)
 
 (ql:quickload :dev.metalisp.survey)
-(let ((app-name (uiop:os-cond ((eq :os-windows (uiop:detect-os)) "survey-buttler.exe")
-                              ((eq :os-unix (uiop:detect-os)) "survey-buttler"))))
+(let* ((os (uiop:detect-os))
+       (app-name (uiop:os-cond ((eq :os-windows os) "ml-survey.exe")
+                              ((eq :os-unix os) "ml-survey"))))
   (sb-ext:save-lisp-and-die app-name :executable t :toplevel 'ml-survey:main))
 (quit)