anchor.diff:             (:text-sample-core
               :dispatch (prop dispatch)
               :text (state text)
  +            :textdata (state textdata)
               :excerpt (prop excerpt)
               :excerpt-offset (prop excerpt-offset)))
           get-initial-state
           (lambda ()
  -          (create :text "" :url "" :timeout nil))
  +          (create :text "" :url "" :timeout nil :textdata []))
           get-default-props
           (lambda ()
             (create :url ""))
  
positive.code:                  :key "user1"
                   (:td
                    (:input :type "button" :value "Post"
                                :on-click (@ this post-form)))))))))
          get-initial-state
          (lambda ()
            (create :message ""))
  
negative.code:          (let ((res (create :text text :whitespace (create)))
                 (found nil))
             (dotimes (i (length text))
               (when (member (elt text i) *whitespace-characters*)
                 (unless found (setf found i))
                 (dolist (j (range found (1+ i)))
                   (incf (getprop res 'whitespace j)))
                 (setf found nil)))
             res))
  
         (defun contiguous-whitespace? (tdat index)
  