anchor.diff:     (notification-delay 0.1
                          :documentation "Time in seconds after which to notify
   `update-notifier' if `suggestions' was modified.")
  +
  +   (ready-p
  +    nil
  +    :type boolean
  +    :export t
  +    :initarg nil
  +    :documentation "Whether the source is done computing its suggestions.
  +See also `next-ready-p' and `all-ready-p' to wait until ready.")
   
      (ready-channel nil
                     :type (or null calispel:channel)
  
positive.code:                      ;; preprocessor cannot modify them.
                       (mapcar #'copy-object (initial-suggestions source))))
                     (postprocess!))
                ;; Signal this source is done:
                (calispel:! new-ready-channel source))))))
  
negative.code:                                            input))))))
              (unwind-protect
                   (progn
                     (setf (ready-p source) nil)
                     (wait-for-initial-suggestions)
                     (setf (last-input-downcase-p source) (current-input-downcase-p source))
                     (setf (current-input-downcase-p source) (str:downcasep input))
  