anchor.diff:  
   (defun make-input-suggestion (suggestions source input)
     (declare (ignore suggestions))
  -  (list (funcall (suggestion-maker source) input)))
  +  (list (funcall (suggestion-maker source) input
  +                 source input)))
   
   (define-class raw-source (source)
     ((name "Input")
  
positive.code: (defun make-word-suggestions (suggestions source input)
    (declare (ignore suggestions))
    (mapcar (lambda (word)
              (funcall (suggestion-maker source) word))
            (sera:words input)))
  
  (define-class word-source (source)
  
negative.code:             (if (suggestion-p suggestion-value)
                  suggestion-value
                  (funcall (suggestion-maker source)
                           suggestion-value
                           source)))
            (uiop:ensure-list elements)))
  
  (defmethod initialize-instance :after ((source source) &key)
  