anchor.diff:                                             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))
  
positive.code:    (notification-delay 0.1
                         :documentation "Time in seconds after which to notify
  `update-notifier' if `suggestions' was modified.")
  
     (ready-channel nil
                    :type (or null calispel:channel)
  
negative.code:                      ;; 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))))))
  