anchor.diff:              (if (suggestion-p suggestion-value)
                   suggestion-value
                   (funcall (suggestion-maker source)
  -                         suggestion-value)))
  +                         suggestion-value
  +                         source)))
             (uiop:ensure-list elements)))
   
   (defmethod initialize-instance :after ((source source) &key)
  
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: 
  (defun make-input-suggestion (suggestions source input)
    (declare (ignore suggestions))
    (list (funcall (suggestion-maker source) input
                   source input)))
  
  (define-class raw-source (source)
    ((name "Input")
  