anchor.diff:  (let ((temp-view   nil)
         (toggle-flag t))
     (defun write-something-to-last-line ()
  -    (when (eq *windows-term-type* :cmd.exe)
  +    (when (eq (windows-term-type) :cmd.exe)
         (return-from write-something-to-last-line))
       (unless temp-view
         (setf temp-view (lem-if:make-view *implementation* nil 0 0 0 0 nil)))
  
positive.code:        (loop :while (< cur-x x)
            :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))
                (incf cur-x  (calc-cur-char-width  *windows-term-setting* code)))
         disp-x))
      ((and (windows-term-setting-cur-mov-by-pos  *windows-term-setting*)
            (windows-term-setting-disp-char-width *windows-term-setting*)
            (windows-term-setting-pos-char-width  *windows-term-setting*))
       ;; for ConEmu
       (let ((disp-x 0)
             (pos-x  0)
  
negative.code:     (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))
             (incf cur-x  (calc-cur-char-width  (windows-term-setting) code)))
      cur-x))
  
  ;; for mintty and ConEmu
  ;; adjust line width by using zero-width-space character (#\u200b)
  (defun adjust-line (view x y &key (modeline nil))
    (declare (ignore x))
    (unless (and (windows-term-setting-disp-char-width (windows-term-setting))
                 (windows-term-setting-pos-char-width  (windows-term-setting)))
      (return-from adjust-line))
    (let* ((start-x    (ncurses-view-x view))
           (disp-width (ncurses-view-width view))
  