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: 
  
  ;; 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
  
negative.code: (define-exported-cfuns ("erasechar" "killchar")
      :char)
  
  ;; TODO:
  ;;
  ;; C-prototype: int erasewchar(wchar_t *ch);
  
  (define-exported-cfuns ("has_ic" "has_il")
      bool)
  
  ;; TODO:
  ;;
  ;; C-prototype: int killwchar(wchar_t *ch);
  ;; C-prototype: attr_t term_attrs(void);
  
  (define-exported-cfuns ("termattrs")
      chtype)
  