anchor.diff:  
   (defvar +recursive-minibuffer-break-tag+ (gensym))
   
  +(defun minibuffer-start-charpos (&optional (frame (first *frame-list*)))
  +  (frame-minibuffer-start-charpos frame))
  +
  +(defun (setf minibuffer-start-charpos) (new-start-charpos)
  +  (let ((frame (first *frame-list*)))
  +    (setf (frame-minibuffer-start-charpos frame) new-start-charpos)))
  +
  +(defun echoarea-buffer (&optional (frame (first *frame-list*)))
  +  (frame-echoarea-buffer frame))
  +
  +(defun minibuffer-buffer (&optional (frame (first *frame-list*)))
  +  (frame-minibuffer-buffer frame))
  +
   (defvar *minibuffer-completion-function* nil)
   (defvar *minibuffer-file-complete-function* nil)
   (defvar *minibuffer-buffer-complete-function* 'completion-buffer-name)
  
positive.code: 
  (defmethod message-using-minibuffer-class ((minibuffer-window minibuffer-window) string args)
    (cond (string
           (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
                                     (%switch-to-buffer *echoarea-buffer* nil nil)
                                     (sit-for 1 t))
                     (%switch-to-buffer *minibuffer-buffer* nil nil)))
               (editor-abort ()
                 (minibuf-read-line-break)))))
          (t
           (erase-buffer *echoarea-buffer*))))
  
  (defmethod message-using-minibuffer-class ((minibuffer-window popup-minibuffer-window) string args)
    (cond (string
  
negative.code:                                        :read-only t
                                         :field t)
                          (character-offset (current-point) (length prompt)))
                        (let ((start-charpos (minibuffer-start-charpos)))
                          (setf (minibuffer-start-charpos) (point-charpos (current-point)))
                          (when initial
                            (insert-string (current-point) initial))
                          (unwind-protect (minibuf-read-line-loop comp-f existing-p syntax-table)
  