anchor.diff:  
   (cffi:defcvar ("COLOR_PAIRS" *COLOR-PAIRS* :library charms/ll::libcurses) :int)
   
  -(defvar *colors* nil)
  +(defvar *colors* '())
   (defvar *color-pair-table* (make-hash-table :test 'equal))
  -(defvar *use-bg-color*)
  +(defvar *pair-counter* 0)
   
   (defstruct color
     number
  
positive.code:                           :short g
                            :short b
                            :int))
    (push (make-color :number number
                      :name name
                      :r r
                      :g g
                      :b b)
          *colors*))
  
  (defun init-colors ()
    (when (/= 0 (charms/ll:has-colors))
      (charms/ll:start-color)
      (charms/ll:use-default-colors)
  
      (setf *colors* nil)
  
      (add-color charms/ll:color_black "black" #x00 #x00 #x00 t)
      (add-color charms/ll:color_red "red" #xcd #x00 #x00 t)
      (add-color charms/ll:color_green "green" #x00 #xcd #x00 t)
  
negative.code:   r
    g
    b)
  
  (defun add-color (number name r g b &optional builtin)
    (unless builtin
  