anchor.diff:                    t)))))
     (values (list line) nil))
   
  + 
positive.code: 
  ;;; image-link
  ;;; image-link reference
  
  #|
  (cl-ppcre::parse-string ":")
  (scan '(:sequence hostname) "http://www.metabang.com")
  (cl-ppcre:scan '(:sequence inline-link) "go see [this](http://foo.bar)")
  (cl-ppcre:scan 
   (cl-ppcre::parse-string "hello\\s?there")
   "hellothere")
  |#
  
  ;;; ---------------------------------------------------------------------------
  
  
negative.code:                        #\!               ;exclamation mark
                         ))))
  
  (define-parse-tree-synonym
    link+title 
    (:sequence 
  