anchor.diff:                    ;;   fixnum : number of reserved lines
     )
   (defun update-windows-term-setting ()
  -  (setf *windows-term-setting*
  -        (case *windows-term-type*
  +  (setf (windows-term-setting)
  +        (case (windows-term-type)
             (:mintty
              (make-windows-term-setting
               :disp-char-width t
  
positive.code: ;; input polling interval (sec)
  ;;  (we don't use PDCurses's internal polling timer (0.05 sec interval))
  ;;  (we use high precision timer when this interval is less than 0.01)
  (defvar *input-polling-interval* 0.001)
  (defun input-polling-interval ()
    *input-polling-interval*)
  (let ((high-precision nil)
        (exit-hook      nil))
    (defun (setf input-polling-interval) (v)
      (setf *input-polling-interval* v)
      (cond
        ((< v 0.01)
         (unless high-precision
  
negative.code: ;; for cmd.exe (using cjk code page)
  ;; workaround for printing problem of wide characters (incomplete)
  (defun print-sub (scrwin x y string)
    (unless (and (eq (windows-term-type) :cmd.exe)
                 (member *windows-code-page* '(932 936 949 950)))
      (charms/ll:mvwaddstr scrwin y x string)
      (return-from print-sub))
  