anchor.diff:          (*minibuf-read-line-history* (let ((table (gethash history-name *minibuf-read-line-history-table*)))
                                          (or table
                                              (setf (gethash history-name *minibuf-read-line-history-table*)
  -                                                 (lem.history:make-history)))))
  -        (*current-minibuffer-buffer* *minibuffer-buffer*))
  +                                                 (lem.history:make-history))))))
       (let ((result
               (catch +recursive-minibuffer-break-tag+
                 (handler-case
  
positive.code:                         (minibuffer-window-height))
                       (display-width)
                       (minibuffer-window-height)
                       nil))
    (setf *current-minibuffer-buffer* *echoarea-buffer*))
  
  (defun minibuf-update-size ()
    (window-set-pos (minibuffer-window) 0 (1- (display-height)))
  
negative.code:          (erase-buffer *echoarea-buffer*)
           (let ((point (buffer-point *echoarea-buffer*)))
             (insert-string point (apply #'format nil string args)))
           (when (active-minibuffer-window)
             (handler-case
                 (with-current-window (minibuffer-window)
                   (unwind-protect (progn
  