anchor.diff:  
   (defvar *cliki2-compiled-grammar* nil)
   
  +(defvar *enable-cliki-grammar* nil)
  +
   (defmacro with-cliki2-rules (&body body)
  -  `(let ((*rules* *cliki2-rules*))
  +  `(let ((*rules* *cliki2-rules*)
  +         (*enable-cliki-grammar* t))
        ,@body))
   
   (defun recompile-cliki2-grammar ()
  
positive.code:   (sanitize:with-clean-fragment (fragment
                                   (with-output-to-string (s)
                                     (let ((3bmd::*references* (make-hash-table)))
                                       (3bmd::print-element (parse '3bmd-grammar::block  
                                                                   (cliki2::article-content-head article)
                                                                   :junk-allowed t)
                                                            s)))
  
negative.code: (define-rule category-link (and (and (? #\\) "*(") (+ (and (! #\)) character)) #\))
    (:destructure (start category end)
      (declare (ignore start end))
      (cons :article-link (cliki2:normalize-name (text category)))))
  
  ;;;; code-block
  
  