anchor.diff:    (init-colors)
     (charms/ll:noecho)
     (charms/ll:cbreak)
  -  (raw)
  +  (charms/ll:raw)
     (charms/ll:nonl)
     (charms/ll:refresh)
     (charms/ll:keypad charms/ll:*stdscr* 1))
  
positive.code: (in-package :cl-user)
  (defpackage :lem.term
    (:use :cl)
    (:export :with-raw
             :get-color-pair
             :background-mode
             :term-init
             :term-finalize
  
negative.code: ;;;
  
  (cffi:defcfun "fopen" :pointer (path :string) (mode :string))
  (cffi:defcfun "fclose" :int (fp :pointer))
  (cffi:defcfun "fileno" :int (fd :pointer))
  