aboutsummaryrefslogtreecommitdiffstats
path: root/l/src/option.lisp
diff options
context:
space:
mode:
authorTeddy Wing2021-02-01 23:47:30 +0100
committerTeddy Wing2021-02-02 00:01:16 +0100
commit1f234bd9525be263ea89037096abf39d136da77a (patch)
tree3294a9639122f14879048a14a8dd2e1644ba691b /l/src/option.lisp
parentf5ac089ffb8c55154f751d250f40c5d41add834d (diff)
downloadextreload-1f234bd9525be263ea89037096abf39d136da77a.tar.bz2
main: Start command line option parsing
Include the 'unix-opts' library described in http://lispcookbook.github.io/cl-cookbook/scripting.html#parsing-command-line-arguments for command line option parsing. Define the options I need. We want a `--socket-url` option, and a list of extension IDs as free arguments. Implement the `-V` version command line argument. Thanks to JJJ (https://stackoverflow.com/users/1337941/jjj) on Stack Overflow for describing how to get the version number of an ASDF system: https://stackoverflow.com/questions/11084339/getting-the-version-of-an-asdf-system/11088022#11088022 Add a new `options.lisp` file where we'll add the option parsing restart error handling functions required by 'unix-opts'.
Diffstat (limited to 'l/src/option.lisp')
-rw-r--r--l/src/option.lisp6
1 files changed, 6 insertions, 0 deletions
diff --git a/l/src/option.lisp b/l/src/option.lisp
new file mode 100644
index 0000000..d828230
--- /dev/null
+++ b/l/src/option.lisp
@@ -0,0 +1,6 @@
+(in-package :extreload)
+
+(defmacro when-option ((options option) &body body)
+ `(let ((value (getf ,options ,option)))
+ (when value
+ ,@body)))