anchor.diff:      (declare (ignore start end))
       (cons :article-link (concat article))))
   
  -(defmethod 3bmd::print-tagged-element ((tag (eql :article-link)) stream title)
  +(defmethod 3bmd:print-tagged-element ((tag (eql :article-link)) stream title)
     (write-string (cliki2.view:article-link
                    (list :title title
                          :href (restas:genurl 'cliki2:view-article :title title)))
  
positive.code:     (declare (ignore start end))
      (cons :hyperspec-link (concat 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)))
  
negative.code:     (declare (ignore start w1 w2 end))
      (cons :lisp-code-block (concat code))))
  
  (defmethod 3bmd:print-tagged-element ((tag (eql :lisp-code-block)) stream code)
    (write-string (cliki2.view:code-block
                   (list :code (colorize::html-colorization :common-lisp code)))
                  stream))
    
  (defun category-char-p (character)
    (not (member character '(#\: #\" #\)))))
  
  