anchor.diff:        (screen-move-cursor screen visual-cursor-x visual-cursor-y))))
   
   (defun screen-redraw-separator (window)
  -  (let ((attr (%attribute-to-bits 'modeline)))
  +  (let ((attr (attribute-to-bits 'modeline)))
       (charms/ll:attron attr)
       (when (< 0 (window-x window))
         (charms/ll:move (window-y window) (1- (window-x window)))
  
positive.code:                      x)))
  
  (defun scrwin-print-string (scrwin x y string attr)
    (setf attr (%attribute-to-bits attr))
    (charms/ll:wattron scrwin attr)
    (loop :for char :across string
          :do (cond ((char= char #\tab)
  
negative.code: 
  (defvar *print-start-x* 0)
  
  (defun attribute-to-bits (attribute-or-name)
    (let ((attribute (ensure-attribute attribute-or-name nil)))
      (if (null attribute)
          0
  