anchor.diff:                           (finish))
                   (t (write-string text out))))))))
   
  -(defmethod 3bmd-ext:print-tagged-element ((tag (eql :cliki2-category-list)) stream category)
  +(defmethod 3bmd:print-tagged-element ((tag (eql :cliki2-category-list)) stream category)
     (write-string (cliki2.view:category-content
                    (list :items
                          (iter (for article in (sort (copy-list (cliki2::articles-with-category category))
  
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 hyperspec-link (and "_H(" (+ (and (! #\)) character)) #\))
    (:destructure (start symbol end)
      (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)))
  