84533918e1e49c6156f501a7f050d9348f927a2d
[clnl] / src / main / extensions / cli / cli.lisp
1 (in-package #:clnl-extension-cli)
2
3 (defun prims ()
4  "PRIMS => PRIMS
5
6 ARGUMENTS AND VALUES:
7
8   PRIMS: Primitives defined for this extension
9
10 DESCRIPTION:
11
12   PRIMS returns the primitives used in the CLI extension."
13  (list
14   (list :name :q :type :command :func #'shut-down)))
15
16 (defun shut-down ()
17  (cl-charms/low-level:endwin)
18  (sb-ext:exit :abort t))