anchor.diff:    (setf (input-polling-interval) *input-polling-interval*))
   
   ;; for input
  -;; (we can't use stdscr for input because it calls wrefresh implicitly)
  +;;  (we don't use stdscr for input because it calls wrefresh implicitly
  +;;   and causes the display confliction by two threads)
   (defvar *padwin* nil)
   (defun getch-pad ()
     (unless *padwin*
  
positive.code:   (cffi:foreign-funcall "GetConsoleOutputCP" :int))
  
  ;; input polling interval (sec)
  ;;   (we don't use PDCurses's internal polling timer (0.05 sec interval))
  ;;   (when interval is less than 0.01, high precision timer is used)
  (defvar *input-polling-interval* 0.001)
  (defun input-polling-interval ()
    *input-polling-interval*)
  
negative.code:     (t :cmd.exe)))
  
  ;; load windows dll
  ;;  (we load winmm.dll with a full path because it isn't listed in
  ;;   windows knowndlls)
  (cffi:load-foreign-library '(:default "kernel32"))
  (let* ((csize  1024)
         (cbuf   (cffi:foreign-alloc :char :count csize :initial-element 0))
  