Getting cl-charms to support colour in Windows and sdl build of pdcurses

shimmy.lisp

(in-package #:cl-charms/low-level)

; #define COLOR_PAIR(n)      (((chtype)(n) << PDC_COLOR_SHIFT) & A_COLOR)

; for 32-bit curses
(defun COLOR-PAIR (n)
  (logand (ash n 24) #xff000000))

;(defun COLOR-PAIR (n)
;  (logand (ash n 24) (ash #x7fffffff 24)))

(export (find-symbol "COLOR-PAIR" ':cl-charms/low-level) ':cl-charms/low-level)