anchor.diff:  (defun make-word-suggestions (suggestions source input)
     (declare (ignore suggestions))
     (mapcar (lambda (word)
  -            (funcall (suggestion-maker source) word))
  +            (funcall (suggestion-maker source) word
  +                     source input))
             (sera:words input)))
   
   (define-class word-source (source)
  
positive.code:             (if (suggestion-p suggestion-value)
                  suggestion-value
                  (funcall (suggestion-maker source)
                           suggestion-value)))
            (uiop:ensure-list elements)))
  
  (defmethod initialize-instance :after ((source source) &key)
  
negative.code: 
  Called on
  - arbitrary object
  - (optional) source
  - (optional) current input.")
  
     (filter #'fuzzy-match
  