anchor.diff:  ;;; Minibuffer stuff.
   (defvar *minibuffer-history* '())
   (defvar *minibuffer-history-number* 0)
  +(defvar *minibuffer-completer* nil)
  +(defvar *minibuffer-completion-results* ())
  +(defvar *minibuffer-completion-results-number* 0)
   
   (defun fix-minibuffer-point-position-hook ()
     (when (mark< (buffer-point *minibuffer*)
  
positive.code:      (remhash #\y key-map)
       (remhash #\n key-map))))
  
  (defun initialize-minibuffer-key-map (key-map)
    (set-key #\Newline 'minibuffer-finish-input-command key-map)
    (set-key #\C-M 'minibuffer-finish-input-command key-map)
    (set-key #\M-P 'minibuffer-previous-history-command key-map)
    (set-key #\M-N 'minibuffer-next-history-command key-map)
    (set-key '(#\C-X #\C-F) nil key-map)
    (set-key '(#\C-X #\C-S) nil key-map)
    (set-key '(#\C-X #\C-W) nil key-map)
  
negative.code:                 (setf *minibuffer-history-number* 0)
                  (error e)))))
        (switch-to-buffer old-buffer))))x
  
  (defun minibuffer-yes-or-no-p (&optional control &rest arguments)
    (let ((prompt (apply 'format nil control arguments)))
  