anchor.diff:  
   (defun render-mode-line ()
     (let* ((buffer (current-buffer *editor*))
  +         (minibuffer-rows (if (eql buffer *minibuffer*)
  +                            (1+ (truncate (line-number (last-line buffer)) 10000))
  +                            1))
            (modeline-buffer (get-buffer-create " *Modeline*"))
            (modeline-string (buffer-property buffer 'modeline)))
       (insert modeline-buffer
  
positive.code:          *package* ; TODO: uncomment above when buffer-current-package is faster
           ))
      (render-display-line (first-line modeline-buffer)
         (lambda (l) (blit-display-line l (window-rows))) t)
      (kill-buffer modeline-buffer)))
  
  (defun redisplay ()
  
negative.code:             (recenter buffer)
              (return-from redisplay nil))
            ;; Compare against the current screen, blitting when needed.
            (if (eql buffer *minibuffer*)
              (let ((minibuffer-rows (1+ (truncate (line-number (last-line buffer)) 10000))))
                (do ((y 0 (incf y)))
                    ((= y minibuffer-rows))
                  (let ((line (aref new-screen y)))
                    (unless (eql (aref current-screen y) line)
                      (blit-display-line line (+ y (- (window-rows) minibuffer-rows) 2))
                      (setf (aref current-screen y) line)
                      (check-pending-input)))))
              (progn
                (dotimes (y (window-rows))
                  (let ((line (aref new-screen y)))
  