anchor.diff:              (t
                (return)))
         (incf y))
  -    (setf (window-wrap-ylist window)
  -          (nreverse (window-wrap-ylist window)))
       (charms/ll:wmove (window-win window)
                        cury
                        curx)))
  
positive.code:                         :buffer buffer
                          :disp-lines (make-array (1- winheight) :initial-element nil)
                          :vtop-linum 1
                          :vtop-charpos 0
                          :wrap-ylist nil)))
      (charms/ll:keypad (window-win window) 1)
      (setf (window-point-marker window)
            (make-marker buffer (make-point 1 0)))
  
negative.code:                (window-print-line window y str :string-start start :string-end i)
                 (window-print-line window y *wrapping-fatstring* :start-x (1- winwidth))
                 (incf y)
                 (setq start i))))
    (values curx cury y))
  
  