anchor.diff:              :sources (list (make-instance 'resume-prompt-source)))))
       (when old-prompt
         (prompter:resume old-prompt)
  -      (show-prompt-buffer old-prompt))))
  +      (show-prompt-buffer old-prompt)
  +      (wait-on-prompt-buffer old-prompt))))
  
positive.code:                                      (append args
                                               (list
                                                :window (current-window)
                                                :result-channel result-channel
                                                :interrupt-channel interrupt-channel)))))
             (setf parent-thread-prompt-buffer prompt-buffer)
             (show-prompt-buffer prompt-buffer))))
        (calispel:fair-alt
          ((calispel:? result-channel results)
           (hide-prompt-buffer parent-thread-prompt-buffer)
           results)
          ((calispel:? interrupt-channel)
           (hide-prompt-buffer parent-thread-prompt-buffer)
           (error 'nyxt-prompt-buffer-canceled))))))
  
  (export-always 'prompt1)
  (defmacro prompt1 (&body body)
  
negative.code:   :sources (list (make-instance 'prompter:source :filter #'my-suggestion-filter)))
  
  See the documentation of `prompt-buffer' to know more about the options."
      (let ((prompt-object-channel (make-channel 1)))
        (ffi-within-renderer-thread
         *browser*
         (lambda ()
  