anchor.diff:  (define-command return-immediate (&optional (minibuffer (minibuffer *interface*)))
     "Return with minibuffer input, ignoring the selection."
     (hide *interface*)
  -  (with-slots (callback-function cleanup-function) minibuffer
  +  (with-slots (callback cleanup-function) minibuffer
       (let ((normalized-input (str:replace-all " " " " (input-buffer minibuffer))))
  -      (funcall callback-function normalized-input))
  +      (funcall callback normalized-input))
       (when cleanup-function
         (funcall cleanup-function))))
   
  
positive.code:   ;; `return-immediate' and `cancel-input', e.g. `hide', the normalization of
    ;; the input-buffer, etc.
    (hide *interface*)
    (with-slots (callback-function cleanup-function
                 empty-complete-immediate completions completion-cursor)
        minibuffer
      (if completions
  
negative.code:    (callback-buffer :initarg :callback-buffer :accessor callback-buffer :initform (when *interface* (active-buffer *interface*))
                      :documentation "The active buffer when the minibuffer was
  brought up.  This can be useful to know which was the original buffer in the
  `callback' in case the buffer was changed.")
     (setup-function :initarg :setup-function :accessor setup-function :initform #'setup-default
                     :documentation "Function of no argument that fills the
  `content' on when the minibuffer is created.  Called only once.")
  