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:     (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)
  