anchor.diff:                 (values :error ERR))
                 (t (values (cffi:mem-ref ch :unsigned-int) result)))))))
   
  -; C Prototype: int wget_wch(WINDOW *win, wint_t *wch);
  +;; C Prototype: int wget_wch(WINDOW *win, wint_t *wch);
   #+sb-unicode
   (cffi:defcfun (c-wget-wch "wget_wch") :int
     (win window-ptr)
  
positive.code: 
  
  ;; add_wch
  ; TODO
  ; C Prototype: int add_wch( const cchar_t *wch );
  ; C Prototype: int wadd_wch( WINDOW *win, const cchar_t *wch );
  ; C Prototype: int mvadd_wch( int y, int x, const cchar_t *wch );
  ; C Prototype: int mvwadd_wch( WINDOW *win, int y, int x, const cchar_t *wch );
  ; C Prototype: int echo_wchar( const cchar_t *wch );
  ; C Prototype: int wecho_wchar( WINDOW *win, const cchar_t *wch );
  
  
  ;; add_wchstr
  ; TODO
  ; C Prototype: int add_wchstr(const cchar_t *wchstr);
  ; C Prototype: int add_wchnstr(const cchar_t *wchstr, int n);
  ; C Prototype: int wadd_wchstr(WINDOW * win, const cchar_t *wchstr);
  ; C Prototype: int wadd_wchnstr(WINDOW * win, const cchar_t *wchstr, int n);
  ; C Prototype: int mvadd_wchstr(int y, int x, const cchar_t *wchstr);
  ; C Prototype: int mvadd_wchnstr(int y, int x, const cchar_t *wchstr, int n);
  ; C Prototype: int mvwadd_wchstr(WINDOW *win, int y, int x, const cchar_t *wchstr);
  ; C Prototype: int mvwadd_wchnstr(WINDOW *win, int y, int x, const cchar_t *wchstr, int n);
  
  
  ;; addch
  
negative.code: 
  
  ;; constants
  
  ;; Predefined colors
  (define-exported-constant COLOR_BLACK   0)
  (define-exported-constant COLOR_RED     1)
  (define-exported-constant COLOR_GREEN   2)
  