anchor.diff:                               "</code>")
     (:destructure (start w1 code w2 end)
       (declare (ignore start w1 w2 end))
  -    (cons :lisp-code-block (concat code))))
  +    (cons :lisp-code-block (text code))))
   
  -(defmethod 3bmd:print-tagged-element ((tag (eql :lisp-code-block)) stream code)
  +(defmethod 3bmd-ext:print-tagged-element ((tag (eql :lisp-code-block)) stream code)
     (write-string (cliki2.view:code-block
                    (list :code (colorize::html-colorization :common-lisp code)))
                   stream))
  
positive.code: (define-rule hyperspec-link (and "_H(" (+ (and (! #\)) character)) #\))
    (:destructure (start symbol end)
      (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)))
  
negative.code: (define-rule person-link (and "_P(" (+ (and (! #\)) character)) #\))
    (:destructure (start name end)
      (declare (ignore start end))
      (cons :person-link (cliki2:normalize-name (text name)))))
  
  (defmethod 3bmd-ext:print-tagged-element ((tag (eql :person-link)) stream name)
    (write-string (cliki2.view:person-link
                   (list :name name
                         :href (restas:genurl 'cliki2:view-person :name name)))
  