hpcdisrespecter/organicCafe
1
0
Fork 0
Code Issues Releases Wiki Activity

Initial commit, ACM PEARC25 and PEARC26 chosen restaurants work.

Browse Source 
Committer: hpcdisrespecter <noreply@git.asperger.pro>

	modified:   .gitignore
	modified:   README.md
	new file:   menus/peoples-organic.sexp
	new file:   menus/townhall-shortnorth.sexp
	new file:   organic-cafe.asd
	new file:   run.lisp
	new file:   src/package.lisp
	new file:   src/planner.lisp
	new file:   test/tests.lisp
This commit is contained in:
hpcdisrespecter
2026-07-23 02:58:10 -05:00
parent 164c8c4099
commit bc14c93a3c
9 changed files with 1060 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
run.lisp Normal file
View File

@@ -0,0 +1,17 @@
(require "asdf")
(let* ((script (or *load-truename* *compile-file-truename*))
(root (uiop:pathname-directory-pathname script))
(default-menu (merge-pathnames "menus/peoples-organic.sexp" root)))
;; Loading source here keeps the CLI read-only. The ASDF system remains
;; available for compiled development and test workflows.
(load (merge-pathnames "src/package.lisp" root))
(load (merge-pathnames "src/planner.lisp" root))
(handler-case
(uiop:quit
(uiop:symbol-call :organic-cafe :run-cli
(rest sb-ext:*posix-argv*)
:default-menu default-menu))
(error (condition)
(format *error-output* "Error: ~A~%" condition)
(uiop:quit 1))))