anchor.diff:  ;;; css
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  -(define-mode css-tag (20 :all)
  -  (:special "{css[^}]*}"))
  +;; (define-mode css-tag (20 :all)
  +;;   (:special "{css[^}]*}"))
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;; parse-template
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (wiki-parser:remake-lexer 'toplevel)
  -
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;; parse-template
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (defmethod wiki-parser:parse ((markup (eql :closure-template.parser)) (obj string))
     (let* ((res (call-next-method markup (ppcre:regex-replace-all "\\s+" obj " ")))
  
positive.code: ;;;; msg
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-mode msg (30 :all)
    (:entry "{msg[^}]*}(?=.*{/msg})")
    (:entry-attribute-parser parse-arguments)
    (:exit "{/msg}"))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; if
  
negative.code: ;;;; template tag
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun parse-template-name (str)
    (or (ppcre:register-groups-bind (name) ("^{template\\s+([\\w-]+)\\s*}$" str)
          (list name))
        (discard-parse-element))) 
  
  (define-mode template (10 :baseonly)
    (:allowed :all)
    (:entry "{template[^}]*}(?=.*{/template})")
    (:entry-attribute-parser parse-template-name)
    (:exit "{/template}"))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; substition
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (define-mode space-tag (20 :all)
    (:single "{sp}"))
  
  (define-mode emptry-string (20 :all)
    (:single "{nil}"))
  
  (define-mode carriage-return (20 :all)
    (:single "{\\\r}"))
  
  (define-mode line-feed (20 :all)
    (:single "{\\\n}"))
  
  (define-mode tab (20 :all)
    (:single "{\\\t}"))
  
  (define-mode left-brace (20 :all)
    (:single "{lb}"))
  
  (define-mode right-brace (20 :all)
    (:single "{rb}"))
  
  (define-mode eol (30 :all)
    (:single "\\n"))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; literag tag
  