anchor.diff:    (:destructure (start category end)
       (declare (ignore start end))
       (cons :article-link (concat category))))
  -
  -(define-rule 3bmd-grammar::link
  -    (or 3bmd-grammar::explicit-link
  -        3bmd-grammar::reference-link
  -        3bmd-grammar::auto-link
  -        article-link
  -        person-link
  -        hyperspec-link
  -        category-link))
   
   (define-rule empty-lines
       (* (and (* (or #\Space #\Tab)) (? #\Return) #\Newline)))
  
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 :article-link (concat article))))
  
  (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)))
  