anchor.diff:      (loop :while (< disp-x disp-x0)
          :for code := (get-charcode-from-scrwin view pos-x pos-y)
          :until (= code charms/ll:ERR)
  -       :do (incf disp-x (calc-disp-char-width *windows-term-setting* code))
  -           (incf pos-x  (calc-pos-char-width  *windows-term-setting* code)))
  +       :do (incf disp-x (calc-disp-char-width (windows-term-setting) code))
  +           (incf pos-x  (calc-pos-char-width  (windows-term-setting) code)))
       pos-x))
   (defun get-pos-y (view x y &key (modeline nil))
     (declare (ignore x))
  
positive.code:          (setf high-precision nil)
           (cffi:foreign-funcall "timeEndPeriod" :int 1 :int))))
      v)
    (setf (input-polling-interval) *input-polling-interval*))
  
  ;; for input
  ;;  (we don't use stdscr for input because it calls wrefresh implicitly
  
negative.code:   (sleep 0.1)
    ;; clear reserved last lines
    (let ((last-lines (windows-term-setting-reserved-last-lines
                       (windows-term-setting))))
      (when (and (> last-lines 0) (> height *min-lines*))
        (loop :for y1 :from (max (- height last-lines) *min-lines*) :below height
           :with str := (make-string width :initial-element #\space)
  