code.consxy.com Git - clnl/blob - 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))