anchor.diff:  (define-rule literal (and "{literal}" (*  (and (! "{/literal}") character)) "{/literal}")
     (:destructure (start any end)
       (declare (ignore start end))
  -    (list ' literal (concat any))))
  +    (list ' literal (text any))))
   
   ;;;; print
   
  
positive.code: (define-rule alphanumeric (alphanumericp character))
  
  (define-rule simple-name (and alpha-char (* (or alphanumeric #\_ )))
    (:concat t))
    
  (define-rule dotref (or (and #\. simple-name)
                      (and "['" simple-name "']"))
  
negative.code: (define-rule string (and #\' (* string-char) #\')
    (:destructure (q1 string q2)
      (declare (ignore q1 q2))
      (text string)))
  
  ;;; number literal
  
  (define-rule decimal-integer (+ (digit-char-p character))
    (:lambda (list)
      (parse-integer (text list))))
  
  (define-rule hexadecimal-integer (and "0x" (+ hex-char))
    (:destructure (s hexs)
      (declare (ignore s))
      (parse-integer (text hexs) :radix 16)))
  
  (define-rule integer (or hexadecimal-integer decimal-integer))
  
  