anchor.diff:  (defparameter *minibuffer-class* 'minibuffer)
   (export-always 'make-minibuffer)
   (defun make-minibuffer
  -    (&key
  -       (default-modes nil explicit-default-modes)
  +    (&key (default-modes nil explicit-default-modes)
          (completion-function nil explicit-completion-function)
          (callback-buffer nil explicit-callback-buffer)
          (setup-function nil explicit-setup-function)
  
positive.code:        (history nil explicit-history)
         (multi-selection-p nil explicit-multi-selection-p))
    "See the `minibuffer' class for the argument documentation."
    (apply #'make-instance *minibuffer-class*
           `(,@(if explicit-default-modes
                   `(:default-modes ,default-modes)
                   '())
             ,@(if explicit-completion-function
                   `(:completion-function ,completion-function)
                   '())
             ,@(if explicit-callback-buffer
                   `(:callback-buffer ,callback-buffer)
                   '())
             ,@(if explicit-setup-function
                   `(:setup-function ,setup-function)
                   '())
             ,@(if explicit-cleanup-function
                   `(:cleanup-function ,cleanup-function)
                   '())
             ,@(if explicit-changed-callback
                   `(:changed-callback ,changed-callback)
                   '())
             ,@(if explicit-must-match-p
                   `(:must-match-p ,must-match-p)
                   '())
             ,@(if explicit-input-prompt
                   `(:input-prompt ,input-prompt)
                   '())
             ,@(if explicit-input-buffer
                   `(:input-buffer ,input-buffer)
                   '())
             ,@(if explicit-invisible-input-p
                   `(:invisible-input-p ,invisible-input-p)
                   '())
             ,@(if explicit-show-completion-count-p
                   `(:show-completion-count-p ,show-completion-count-p)
                   '())
             ,@(if explicit-history
                   `(:history ,history)
                   '())
             ,@(if explicit-multi-selection-p
                   `(:multi-selection-p ,multi-selection-p)
                   '()))))
  
  (defmethod update-candidates ((minibuffer minibuffer))
    (with-slots (completion-function completions input-buffer must-match-p )
  
negative.code:                  :type string
                   :documentation "Text to prompt to the user, before `input-buffer'.")
     (input-buffer :accessor input-buffer
                   :initarg :input-buffer
                   :initform (make-instance 'text-buffer:text-buffer)
                   :documentation "Buffer used to capture keyboard input.")
     (input-cursor :accessor input-cursor
                   :initarg :input-cursor
                   :initform (make-instance 'text-buffer:cursor)
                   :documentation "Cursor used in conjunction with the input-buffer.")
     (invisible-input-p :initarg :invisible-input-p
  