luvcraft/tools/web.lisp
in-package#:luvcraft.tools
defunparse-host-option
valueoption
declare
ignoreoption
when
valuezerop
lengthvalue
command-line-error"--host must not be empty."
defuncommand-web
arguments
multiple-value-bind
positionalsoptions
parse-keyword-optionsarguments`
"--host":host,#'parse-host-option
"--port":port,#'parse-integer-option
whenpositionals
command-line-error"web takes no positional arguments."
defun parse-host-option
(value option)defun command-web
(arguments)defun parse-keyword-options
(arguments specs)defun parse-integer-option
(string name)defun serve-luvcraft-web
(&key (host "127.0.0.1") (port 8765))define-arithmetic-operator or
Logical disjunction of tests and raw truth values.