 
 (defn read
   "Reads the first object from an IPushbackReader or a java.io.PushbackReader.
-Returns the object read. If EOF, throws if eof-error? is true. Otherwise returns sentinel.
-Safe, #= is not allowed"
+Returns the object read. If EOF, throws if eof-error? is true. Otherwise returns sentinel."
   ([] (read *in*))
   ([reader] (read reader true nil))
   ([reader eof-error? sentinel] (read reader eof-error? sentinel false))

                           e)))))))

(defn read-string
  "Reads one object from the string s.
Safe, #= is not allowed"
  [s]
  (read (string-push-back-reader s) true nil false))


         (if (newline? c)
           (str s)
           (recur (read-char rdr) (.append s c)))))))
