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: (define-rule package-link (and ":(package" (+ (or #\Tab #\Space #\Newline #\Return)) "\"" (+ (and (! #\") character)) "\")")
    (:destructure (start w1 quote link end)
      (declare (ignore start w1 quote end))
      (cons :package-link (concat link))))
  
  (defmethod 3bmd:print-tagged-element ((tag (eql :package-link)) stream link)
    (write-string (cliki2.view:package-link (list :href link))
                  stream))
  
  ;;;; cliki2 markup extensions
  
  (define-rule 3bmd-grammar:inline-extensions
      (or article-link
          person-link
          hyperspec-link
          category-link
          code-block
          category-list
          package-link))
  
negative.code:   (sanitize:with-clean-fragment (fragment
                                   (with-output-to-string (s)
                                     (let ((3bmd::*references* (make-hash-table)))
                                       (3bmd-ext:print-element (parse '3bmd-grammar::block  
                                                                   (cliki2::article-content-head article)
                                                                   :junk-allowed t)
                                                            s)))
  