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: 
  (defun make-input-suggestion (suggestions source input)
    (declare (ignore suggestions))
    (list (funcall (suggestion-maker source) input)))
  
  (define-class raw-source (source)
    ((name "Input")
  
negative.code:   (match-data suggestion))
  
  (export-always 'make-suggestion)
  (defmethod make-suggestion ((value t) &optional source input)
    "Return a `suggestion' wrapping around VALUE.
  Attributes are set with `object-attributes'."
    (declare (ignore source input))
    (make-instance 'suggestion
                   :value value
                   :attributes (object-attributes value)))
  