anchor.diff:                         #\!               ;exclamation mark
                          ))))
   
  -#+Old
  -(define-parse-tree-synonym
  -  bracketed (:sequence
  -             #\[
  -             (:register (:greedy-repetition 0 nil (:inverted-char-class #\])))
  -             #\]))
  -
   (define-parse-tree-synonym
     link+title 
     (:sequence 
  
positive.code:                   t)))))
    (values (list line) nil))
  
  
negative.code:           (result nil)
            (last-e 0))
        (do-scans (s e gs ge regex line)
          (let ((registers (loop for s-value across gs
                                 for e-value across ge 
                                 when (and (not (null s-value))
                                           (/= s-value e-value)) collect
                                 (subseq line s-value e-value))))
            (setf registers (process-span name registers))
            (setf found? t
                  result (append result
                                 `(,@(when (plusp s) `(,(subseq line last-e s)))
                                   (,name ,@registers)))
                  last-e e)))
        (when found?
          (return-from scan-one-span
            (values (let ((last (subseq line last-e)))
  