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:       ((string= token "nil")
         (make-mal-nil nil))
        ((char= (char token 0) #\")
         (make-mal-string (read-from-string token)))
        (t (make-mal-symbol (read-from-string-preserving-case token))))))
  
negative.code:     (consume reader)
      (nreverse forms)))
  
  
  (defun read-atom (reader)
    (let ((token (next reader)))
      (cond
  