anchor.diff:  
   (defvar *colors* nil)
   (defvar *color-pair-table* (make-hash-table :test 'equal))
  +(defvar *use-bg-color*)
   
   (defstruct color
     number
  
positive.code:       (add-color 254 "color-255" #xee #xee #xee))
  
      (clrhash *color-pair-table*)
      (loop :for pair :from 1 :to 255
            :for fg-color :in *colors*
            :do
            (charms/ll:init-pair pair
                                 (color-number fg-color)
                                 -1)
            (setf (gethash (color-number fg-color)
                           *color-pair-table*)
                  (charms/ll:color-pair pair)))
      t))
  
  ;;;
  
negative.code:                (return (color-number color))))))))
  
  (defun get-color-pair (fg-color-name bg-color-name)
    (let ((fg-color (if (null fg-color-name) -1 (get-color fg-color-name)))
          (bg-color (if *use-bg-color*
                        (if (null bg-color-name) -1 (get-color bg-color-name))
                        -1)))
      (if (and fg-color bg-color)
          (gethash (if *use-bg-color*
                       (cons fg-color bg-color)
                       fg-color)
                   *color-pair-table*
                   0)
          0)))
  