changeset 7: |
315fedf35bc7 |
parent: |
8f59e2f1b8c4
|
child: |
d8f806f1d327 |
author: |
ellis <ellis@rwest.io> |
date: |
Sun, 07 May 2023 18:06:13 -0400 |
permissions: |
-rw-r--r-- |
description: |
rust ffi macros, general stuff |
4 (defparameter demo-path (merge-pathnames "cl-demo" (uiop:temporary-directory))) 6 (defvar db-path (merge-pathnames "db" demo-path)) 9 "Returns the top-level CLI options." 13 :description "demo app to run" 16 :initial-value "client" 17 :env-vars '("DEMO_APP") 20 (defun cli-handler (cmd) 21 "Handler for the `demo' command." 22 (let ((app (cli:getopt cmd :app))) 23 (format t "running: ~A!~%" app))) 29 :description "A collection of demos" 31 :authors '("ellis <ellis@rwest.io>") 34 :handler #'cli-handler)) 37 "A demo of some common-lisp functionality."