anchor.diff:  (defvar *minibuffer-calls-window*)
   (defvar *minibuffer-start-charpos*)
   
  -(defvar *current-minibuffer-buffer*)
   (defvar *echoarea-buffer*)
   (defvar *minibuffer-buffer*)
   
  
positive.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)))))
          (*current-minibuffer-buffer* *minibuffer-buffer*))
      (let ((result
              (catch +recursive-minibuffer-break-tag+
                (handler-case
  
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
  