projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
CLI Extension - :q
[clnl]
/
src
/
main
/
extensions
/
cli
/
cli.lisp
diff --git
a/src/main/extensions/cli/cli.lisp
b/src/main/extensions/cli/cli.lisp
index 843cf01463e7493b5b9f8784d549db3c63cc2d0b..84533918e1e49c6156f501a7f050d9348f927a2d 100644
(file)
--- a/
src/main/extensions/cli/cli.lisp
+++ b/
src/main/extensions/cli/cli.lisp
@@
-10,4
+10,9
@@
ARGUMENTS AND VALUES:
DESCRIPTION:
PRIMS returns the primitives used in the CLI extension."
- nil)
+ (list
+ (list :name :q :type :command :func #'shut-down)))
+
+(defun shut-down ()
+ (cl-charms/low-level:endwin)
+ (sb-ext:exit :abort t))