diff options
Diffstat (limited to 'generate.lisp')
-rw-r--r-- | generate.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/generate.lisp b/generate.lisp deleted file mode 100644 index 8bb93e7..0000000 --- a/generate.lisp +++ /dev/null @@ -1,10 +0,0 @@ -(in-package #:json) - -(defmacro obj (&rest fields) - (let ((o (gensym)) - (f (gensym))) - (setf fields (mapcar (lambda (x) (cons 'list x)) fields)) - `(let ((,o (make-hash-table :test #'equal :size ,(length fields)))) - (dolist (,f ,(cons 'list fields)) - (setf (gethash (car ,f) ,o) (cadr ,f))) - ,o))) |