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