anchor.diff:        ((string= token "nil")
          (make-mal-nil nil))
         ((char= (char token 0) #\")
  -       (make-mal-string (read-from-string token)))
  +       (make-mal-string (parse-string token)))
         (t (make-mal-symbol (read-from-string-preserving-case token))))))
  
positive.code:                      "EOF encountered while reading ~a"
                       (context condition)))))
  
  (defun test-re (re string)
    (let ((match (regexp:match re string)))
      (when match
  
negative.code: 
  (in-package :reader)
  
  (defvar *string-re* "^\"\\(\\\\\\(.\\|
  \\)\\|[^\"\\]\\)*\"$"
    "RE string")
  
  (defvar *tokenizer-re* "[[:space:],]*\\(~@\\|[][{}()`'^@]\\|\"\\(\\\\\\(.\\|
  \\)\\|[^\"\\]\\)*\"\\?\\|;[^
  ]*\\|[^][[:space:]{}()`'\";]*\\)"
    "RE")
  
  (define-condition eof (error)
  