anchor.diff:                       ;; preprocessor cannot modify them.
                        (mapcar #'copy-object (initial-suggestions source))))
                      (postprocess!))
  +              (setf (ready-p source) t)
                 ;; Signal this source is done:
                 (calispel:! new-ready-channel source))))))
  
positive.code:                                            input))))))
              (unwind-protect
                   (progn
                     (wait-for-initial-suggestions)
                     (setf (last-input-downcase-p source) (current-input-downcase-p source))
                     (setf (current-input-downcase-p source) (str:downcasep input))
  
negative.code:    (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)
  