anchor.diff:  (define-rule category-link (and (and (? #\\) "*(") (+ (and (! #\)) character)) #\))
     (:destructure (start category end)
       (declare (ignore start end))
  -    (cons :article-link (cliki2:normalize-name (text category)))))
  +    (cons :article-link (cliki2:normalize-name (concat category)))))
   
   ;;;; code-block
   
  
positive.code: 
  (defvar *cliki2-compiled-grammar* nil)
  
  (defvar *enable-cliki-grammar* nil)
  
  (defmacro with-cliki2-rules (&body body)
    `(let ((*rules* *cliki2-rules*)
           (*enable-cliki-grammar* t))
       ,@body))
  
  (defun recompile-cliki2-grammar ()
  
negative.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)))
  