anchor.diff:      (unless (string= old-input text)
         (setf (slot-value prompter 'input) text)
         (update-sources prompter text)
  -      ;; TODO: Update `selection' when `update' is done.
  -      (setf (selection prompter) (list (first (sources prompter)) 0))))
  +      (select-first prompter)))
     text)
   
   (export-always 'destroy)
  
positive.code:                  nil)
                  (t
                   (push next-source (ready-sources sync-queue))
                   next-source))))
          ;; No sync-queue if no input was ever set.
          t)))
  
negative.code:                        (t (error "Bad source specifier ~s." source-specifier))))
                     (uiop:ensure-list specifiers))))
      (setf (sources prompter) (ensure-sources (sources prompter))))
    (select-first prompter)
    (maybe-funcall (constructor prompter) prompter)
    (update-sources prompter (input prompter))
    prompter)
  