anchor.diff:  ;;; ---------------------------------------------------------------------------
   
   (setf (item-at-1 *spanner-parsing-environments* 'default)
  -      `((,(create-scanner '(:sequence strong-em-1)) strong-em)
  +      `((,(create-scanner '(:sequence escaped-character)) escaped-character)
  +        (,(create-scanner '(:sequence strong-em-1)) strong-em)
           (,(create-scanner '(:sequence strong-em-2)) strong-em)
           
           (,(create-scanner '(:sequence strong-2)) strong)
  
positive.code:              (:register (:greedy-repetition 0 nil :everything))
               #\]))
  
  #+Old
  (define-parse-tree-synonym
    bracketed (:sequence
  
negative.code:              (:register (:greedy-repetition 0 nil (:inverted-char-class #\])))
               #\]))
  
  (define-parse-tree-synonym
    link+title 
    (:sequence 
     #\(
     (:alternation
      (:sequence #\<
                 (:register (:greedy-repetition 0 nil (:inverted-char-class #\) #\ )))
                 #\>)
      (:register (:greedy-repetition 0 nil (:inverted-char-class #\) #\ ))))
                                          ; title
     (:greedy-repetition 
      0 1
      (:sequence 
       (:greedy-repetition 1 nil :whitespace-char-class)
       (:alternation #\' #\" #\() 
       (:register (:greedy-repetition 0 nil :everything))
       (:alternation #\' #\" #\))))
     #\)))
  
  (define-parse-tree-synonym
  