anchor.diff:    (not (member character '(#\{ #\} #\Space #\Tab #\Return #\Newline))))
   
   (define-rule simple-text (+ (simple-text-char-p character))
  -  (:concat t))
  +  (:text t))
   
   ;;;; commment
   
   (define-rule simple-comment (and  "//" (*  (and (! #\Newline) character)) whitespace)
     (:lambda (list)
  -    (list 'comment (concat list))))
  +    (list 'comment (text list))))
   
   (define-rule multiline-comment (and (? whitespace) "/*" (*  (and (! "*/") character)) "*/")
     (:lambda (list)
  -    (list 'comment (concat list))))
  +    (list 'comment (text list))))
   
   (define-rule comment (or simple-comment multiline-comment))
   
  
positive.code: (define-rule literal (and "{literal}" (*  (and (! "{/literal}") character)) "{/literal}")
    (:destructure (start any end)
      (declare (ignore start end))
      (list ' literal (concat any))))
  
  ;;;; print
  
  
negative.code: (define-rule call-data (or call-data-all call-data-expr))
  
  (define-rule template-name (and alpha-char (*  (or alphanumeric #\_ #\-)))
    (:text t))
  
  (define-rule call-template-name (or (and "name=\"" expression "\"") template-name)
    (:lambda (name)
  