anchor.diff:  ]*"
     "RE comment")
   
  -(defvar *identifier-re* "[^[:space:]{}()`'\";]\\+"
  +(defvar *identifier-re* "[^][[:space:]{}()`'\";]\\+"
     "RE identifier")
   
  -(defvar *tokenizer-re* "[[:space:],]*\\(~@\\|\\(\\[\\|\\]\\|[{}()`'^@]\\)\\|\"\\(\\\\\\(.\\|\n\\)\\|[^\"\\]\\)*\"\\|;[^
  -]*\\|[^[:space:]{}()`'\";]\\+\\)"
  +(defvar *tokenizer-re* "[[:space:],]*\\(~@\\|[][{}()`'^@]\\|\"\\(\\\\\\(.\\|\n\\)\\|[^\"\\]\\)*\"\\|;[^
  +]*\\|[^][[:space:]{}()`'\";]\\+\\)"
     "RE")
   
   (define-condition eof (error)
  
positive.code: (defvar *two-char-token* "~@"
    "RE two char")
  
  (defvar *single-char-token* "\\(\\[\\|\\]\\|[{}()`'^@]\\)"
    "RE single char")
  
  (defvar *string-re* "\"\\(?:\\\\\\(?:.\\|\n\\)\\|[^\"\\]\\)*\""
  
negative.code:   (let ((match (regexp:match re string)))
      (when match
        (regexp:match-string string match))))
  
  (defun test-tokenizer (re string)
    (let ((*tokenizer-re* re))
      (tokenize string)))
  
  (defvar *whitespace-chars*
    '(#\Space #\Newline #\Backspace #\Tab
  