Change api and add object generation

1 files changed, 0 insertions, 31 deletions

diff --git a/dump.lisp b/dump.lisp
deleted file mode 100644
index d4f3fff..0000000
--- a/dump.lisp
+++ /dev/null
@@ -1,31 +0,0 @@
-(in-package #:json)
-
-(defun to-string (value)
-  (defun indent (str level)
-    (concatenate 'string (make-string (* 4 level) :initial-element #\Space) str))
-  (defun to-string-rec (value level)
-    (cond ((stringp value)
-           (format nil "\"~a\"" value))
-          ((symbolp value)
-           (string-downcase (symbol-name value)))
-          ((arrayp value)
-           (format nil
-                   "[~&~{~a~^,~&~}]"
-                   (map 'list (lambda (x) (indent (to-string-rec x (1+ level)) level))
-                        value)))
-          ((hash-table-p value)
-           (let (items)
-             (maphash (lambda (k v)
-                        (push (indent (format nil "\"~a\": ~a" k (to-string-rec v (1+ level))) level)
-                              items))
-                      value)
-             (format nil "{~&~{~a~^,~&~}}" items)))
-          (t value)))
-  (to-string-rec value 0))
-
-(defun to-file (value filename)
-  (with-open-file (s filename
-                     :direction :output
-                     :if-exists :supersede
-                     :if-does-not-exist :create)
-    (princ (to-string value) s) t))