anchor.diff:    "Return with minibuffer input, ignoring the selection."
     (hide *interface*)
     (setf (display-mode minibuffer) :nil)
  -  (set-active-buffer *interface* (callback-buffer minibuffer))
     (with-slots (callback-function cleanup-function) minibuffer
       (let ((normalized-input (cl-strings:replace-all (input-buffer minibuffer)
                                                       " " " ")))
  
positive.code:   "Return with minibuffer selection."
    (hide *interface*)
    (setf (display-mode minibuffer) :nil)
    (set-active-buffer *interface* (callback-buffer minibuffer))
    (with-slots (callback-function cleanup-function
                 empty-complete-immediate completions completion-cursor)
        minibuffer
  
negative.code: 
  (define-command cancel-input (minibuffer-mode &optional (minibuffer (minibuffer *interface*)))
    "Close the minibuffer query without further action."
    (setf (display-mode minibuffer) :nil)
    (with-slots (cleanup-function) minibuffer
      (when cleanup-function
        (funcall cleanup-function)))
  