anchor.diff:                          (minibuffer-window-height))
                        (display-width)
                        (minibuffer-window-height)
  -                     nil))
  -  (setf *current-minibuffer-buffer* *echoarea-buffer*))
  +                     nil)))
   
   (defun minibuf-update-size ()
     (window-set-pos (minibuffer-window) 0 (1- (display-height)))
  
positive.code: (defvar *minibuffer-calls-window*)
  (defvar *minibuffer-start-charpos*)
  
  (defvar *current-minibuffer-buffer*)
  (defvar *echoarea-buffer*)
  (defvar *minibuffer-buffer*)
  
  
negative.code:         (*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))))))
      (let ((result
              (catch +recursive-minibuffer-break-tag+
                (handler-case
  