anchor.diff:  (define-rule hyperspec-link (and "_H(" (+ (and (! #\)) character)) #\))
     (:destructure (start symbol end)
       (declare (ignore start end))
  -    (cons :hyperspec-link (text symbol))))
  +    (cons :hyperspec-link (concat symbol))))
   
  -(defmethod 3bmd-ext:print-tagged-element ((tag (eql :hyperspec-link)) stream symbol)
  +(defmethod 3bmd:print-tagged-element ((tag (eql :hyperspec-link)) stream symbol)
     (write-string (cliki2.view:hyperspec-link
                    (list :symbol symbol
                          :href (clhs-lookup:spec-lookup symbol)))
  
positive.code: (define-rule article-link (and (and (? #\\) "_(") (+ (and (! #\)) character)) #\))
    (:destructure (start article end)
      (declare (ignore start end))
      (cons :article-link (cliki2:normalize-name (text article)))))
  
  (defmethod 3bmd-ext:print-tagged-element ((tag (eql :article-link)) stream title)
    (write-string (cliki2.view:article-link
                   (list :title title
                         :new (null (cliki2::article-with-downcase-title (string-downcase title)))
  
negative.code: (define-rule category-link (and (and (? #\\) "*(") (+ (and (! #\)) character)) #\))
    (:destructure (start category end)
      (declare (ignore start end))
      (cons :article-link (cliki2:normalize-name (concat category)))))
  
  ;;;; code-block
  
  