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:                  :type string
                   :documentation "Text to prompt to the user, before `input-buffer'.")
     (input-buffer :accessor input-buffer
                   :initform (make-instance 'text-buffer:text-buffer)
                   :documentation "Buffer used to capture keyboard input.")
     (input-cursor :accessor input-cursor
                   :initform (make-instance 'text-buffer:cursor)
                   :documentation "Cursor used in conjunction with the input-buffer.")
     (invisible-input-p :initarg :invisible-input-p
  
negative.code:                     (write (ps:lisp (content minibuffer)))))))
  
  (defmethod initialize-instance :after ((minibuffer minibuffer) &key)
    (unless (cluffer:cursor-attached-p (input-cursor minibuffer))
      (cluffer:attach-cursor (input-cursor minibuffer) (input-buffer minibuffer)))
    (hooks:run-hook (minibuffer-make-hook *browser*) minibuffer)
    ;; We don't want to show the input in the candidate list when invisible.
    (unless (completion-function minibuffer)
  