Fix function naming

create-core.lisp

@@ -10,8 +10,8 @@
 (ql:quickload :dev.metalisp.survey)
 
 (defvar os (uiop:detect-os))
-(let ((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))
+(let ((app-name (uiop:os-cond ((uiop:os-windows-p) "ml-survey.exe")
+                              ((uiop:os-unix-p) "ml-survey"))))
+  (sb-ext:save-lisp-and-die app-name :executable t :toplevel 'ml-survey/app:main))
 
 (quit)

dev.metalisp.survey.asd

@@ -2,7 +2,7 @@
 
 (defsystem "dev.metalisp.survey"
   :description "A simple survey"
-  :version "0.2.0"
+  :version "0.2.1"
   :author "Marcus Kammer <marcus.kammer@metalisp.dev"
   :source-control "git@git.sr.ht:~marcuskammer/dev.metalisp.survey"
   :licence "MIT"

src/app.lisp

@@ -8,7 +8,8 @@
            #:split-uri
            #:today+now
            #:*app*
-           #:start))
+           #:start
+           #:main))
 
 (in-package #:ml-survey/app)