anchor.diff:                           return (find-symbol lang :keyword))))
            (if lang
                #?[<div class="code">${(colorize::html-colorization lang code)}</div>]
  -             #?[<code>${code}</code>])))
  -     :simple-calls t)))
  +             #?[<code>${(escape-for-html code)}</code>])))
  +     :simple-calls t :start start :end end)))
  +
  
positive.code: 
  (defun generate-html-from-markup (markup)
    #H[<div id="article">]
    (princ (colorize-code
            (ppcre:regex-replace-all
             "\\n\\n"
             (sanitize:clean
              (parse-cliki-markup
               (escape-parens-in-href-links markup))
              +cliki-tags+)
             "<p>"))
           *html-stream*)
    #H[</div>])
  
  (defun escape-parens-in-href-links (markup)
    (ppcre:regex-replace-all
      #?/(href|HREF)="(.*?)"/
      markup
      (lambda (match href url)
        (declare (ignore match href))
        (format nil "href=\"~A\""
          (cl-ppcre:regex-replace-all "\\(|\\)" url #'uri-encode :simple-calls t)))
      :simple-calls t))
  
  (defun parse-cliki-markup (markup)
    (loop for prefix in '("_" "_H" "\\*" "\\/" "_P")
  
negative.code: (defun format-package-link (link) ;; _P(
    #H[<a href="${link}">ASDF-install package (obsolete) ${link}</a>])
  
  (let ((supported-langs (sort (mapcar (lambda (x)
                                         (symbol-name (car x)))
                                       colorize::*coloring-types*)
                               #'> :key #'length)))
    (defun markup-code (markup start end)
      (ppcre:regex-replace
       "<(?:CODE|code)(.*?)?>((?:.|\\n)*?)</(?:CODE|code)>" markup
       (lambda (match maybe-lang code)
         (declare (ignore match))
         (let ((lang (loop for lang in supported-langs
  