anchor.diff:                       "EOF encountered while reading ~a"
                        (context condition)))))
   
  +(defun parse-string (token)
  +  (if (and (> (length token) 1)
  +           (regexp:match *string-re* token))
  +      (read-from-string token)
  +      ;; A bit inaccurate
  +      (error 'eof
  +             :context "string")))
  +
  +;; Useful to debug regexps
   (defun test-re (re string)
     (let ((match (regexp:match re string)))
       (when match
  
positive.code:     (consume reader)
      (nreverse forms)))
  
  (defun read-atom (reader)
    (let ((token (next reader)))
      (cond
  
negative.code: 
  (in-package :reader)
  
  (defvar *string-re* "^\"\\(\\\\\\(.\\|
  \\)\\|[^\"\\]\\)*\"$"
    "RE string")
  
  (defvar *tokenizer-re* "[[:space:],]*\\(~@\\|[][{}()`'^@]\\|\"\\(\\\\\\(.\\|
  \\)\\|[^\"\\]\\)*\"\\?\\|;[^
  ]*\\|[^][[:space:]{}()`'\";]*\\)"
    "RE")
  
  (define-condition eof (error)
  