anchor.diff:    "Sets the color attribute only."
     (%wcolor-set winptr (pair->number color-pair) (null-pointer)))
   
  -;;In general, only underline, bold and reverse work.
   (defparameter *bitmask-alist*
  +  ;; the first four are not attributes, but bitmasks used to extract parts of the chtype.
     '((:normal     . #x00000000)
       (:attributes . #xffffff00)
       (:chartext   . #x000000ff)
       (:color      . #x0000ff00)
  +    ;; we have 16 attributes that can be set.
  +    ;; In general, only underline, bold and reverse are widely supported by terminals.
       (:standout   . #x00010000)
       (:underline  . #x00020000)
       (:reverse    . #x00040000)
  
positive.code:   "Take a pair number, return a color pair in a 2 element list of keywords."
    (car (rassoc number *color-pair-alist*)))
  
  (defun add-attributes (win attributes)
    "Takes a list of keywords and turns the appropriate attributes on."
    (dolist (i attributes)
  
negative.code:     (:low        . #x08000000)
      (:right      . #x10000000)
      (:top        . #x20000000)
      (:vertical   . #x40000000)
      (:italic     . #x80000000)))
  
  (defun get-bitmask (attribute)
    "Returns an ncurses attr/chtype representing the attribute keyword."
  