marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Fix function naming

Browse source
This commit is contained in:
Marcus Kammer 2024-07-09 21:47:16 +02:00
parent ea0b1bef43
commit 637eff4693
Signed by: marcuskammer
GPG key ID: C374817BE285268F
3 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
create-core.lisp
View file

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

2
dev.metalisp.survey.asd
View file

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

3
src/app.lisp
View file

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