read-json-into-string.l

(require :json-decode "package://roseus_mongo/euslisp/json/json-decode.l")
(defun read-file-into-string (filename)
  (with-open-file (f filename :direction :input)
    (let (buf (str-list nil))
      (while (setq buf (read-line f nil))
             (setq str-list (append str-list (list (format nil buf)))))
      (reduce #'(lambda (x y) (concatenate string x y)) str-list))))
 
(defun read-json-into-string (filename)
  (json::parse-from-string (read-file-into-string filename)))