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:           (result nil)
            (last-e 0))
        (do-scans (s e gs ge regex line)
          (setf found? t
                result (append result
                               `(,@(when (plusp s) `(,(subseq line last-e s)))
                                 (,name 
                                  ,@(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)))))
                last-e e))
        (when found?
          (return-from scan-one-span
            (values (let ((last (subseq line last-e)))
  
negative.code:                   t)))))
    (values (list line) nil))
  
   