anchor.diff:                                     (elt bounds 0) (elt bounds 1))
                      (progn
                        (say "Excerpt not found")
  -                     (@ textdata text)))
  -               (@ textdata text))))
  +                     (@ textdata text))))
  +             (@ textdata text)))
   
         (def-component message
             (psx (:span (prop message))))
  
positive.code: 
        (def-component text-sample-core
            (psx
             (:pre
              :style (create :overflow "auto" :background "lightgrey"
                             'white-space "pre-wrap":border "1px"
                             :height "15em" :width "40em" :cursor "text")
              :on-mouse-up (@ this selection-change)
              :on-key-press (@ this selection-change)
              :ref (lambda (ref)
                     (setf (@ component-this-ref sample-element) ref))
              (prop text)))
          selection-change
          (lambda (ev)
            (let ((targ (@ ev target))
  
negative.code:        (defun hilite-a-slice (text start end)
           (list
            (chain text (slice 0 start))
            (psx (:span :class "hilited" :key 1
                        :style (create 'background-color "orange")
                        (chain text (slice start end))))
            (chain text (slice end))))
  
         (defun hilite-excerpt (textdata excerpt offset)
           (say "here")
           (if (not-empty excerpt)
               (let ((bounds
                      (find-excerpt-start/end textdata excerpt (or offset 0))))
  