anchor.diff:                 (values :error ERR))
                 (t (values (cffi:mem-ref ch :unsigned-int) result)))))))
   
  -; C Prototype: int mvwget_wch(WINDOW *win, int y, int x, wint_t *wch);
  +;; C Prototype: int mvwget_wch(WINDOW *win, int y, int x, wint_t *wch);
   #+sb-unicode
   (cffi:defcfun (c-mvwget-wch "mvwget_wch") :int
     (win window-ptr)
  
positive.code: 
  
  ;; printw
  ; TODO: support a variable number of args
  (define-exported-cfuns ("printw")
      :int
    (fmt :string))
  
negative.code: 
  
  ;; in_wch
  
  ;; TODO:
  ;;
  ;; C-prototype: int in_wch(cchar_t *wcval);
  ;; C-prototype: int mvin_wch(int y, int x, cchar_t *wcval);
  ;; C-prototype: int mvwin_wch(WINDOW *win, int y, int x, cchar_t *wcval);
  ;; C-prototype: int win_wch(WINDOW *win, cchar_t *wcval);
  
  
  ;; in_wchstr
  
  ;; TODO:
  ;;
  ;; C-prototype: int in_wchstr(cchar_t *wchstr);
  ;; C-prototype: int in_wchnstr(cchar_t *wchstr, int n);
  ;; C-prototype: int win_wchstr(WINDOW *win, cchar_t *wchstr);
  ;; C-prototype: int win_wchnstr(WINDOW *win, cchar_t *wchstr, int n);
  ;; C-prototype: int mvin_wchstr(int y, int x, cchar_t *wchstr);
  ;; C-prototype: int mvin_wchnstr(int y, int x, cchar_t *wchstr, int n);
  ;; C-prototype: int mvwin_wchstr(WINDOW *win, int y, int x, cchar_t *wchstr);
  ;; C-prototype: int mvwin_wchnstr(WINDOW *win, int y, int x, cchar_t *wchstr, int n);
  
  
  ;; inch
  