anchor.diff:                                                              :title (cliki2::article-title article)))))))
                   stream))
   
  -(define-rule 3bmd-grammar::code (or 3bmdcode code-block category-list))
  +
  +
  +(define-rule 3bmd-grammar:inline-extensions
  +    (or article-link
  +        person-link
  +        hyperspec-link
  +        category-link
  +        code-block
  +        category-list))
  
positive.code:     (cons :cliki2-category-list (cliki2:category-keyword (second list)))))
  
  
  (defmethod 3bmd::print-tagged-element ((tag (eql :cliki2-category-list)) stream category)
    (write-string (cliki2.view:category-content
                   (list :items
                         (iter (for article in (cliki2::articles-with-category category))
  
negative.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)))
  