X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fextensions%2Fcli%2Fcli.lisp;h=84533918e1e49c6156f501a7f050d9348f927a2d;hp=843cf01463e7493b5b9f8784d549db3c63cc2d0b;hb=057ed8d;hpb=cca1c12f7351ff2414bfd582ecb2cad590aa9b51

diff --git a/src/main/extensions/cli/cli.lisp b/src/main/extensions/cli/cli.lisp
index 843cf01..8453391 100644
--- 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))