diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-19 23:41:00 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-19 23:41:00 -0300 |
| commit | ce4838b58104b589894081b6c5cbd52554cf87a7 (patch) | |
| tree | dbefb70d1c00ade4a5cbff3db6bf6ef006e88fd3 /generate.lisp | |
| parent | a0586bd6fed38914b2112c5f834bd66140758e30 (diff) | |
| download | json-ce4838b58104b589894081b6c5cbd52554cf87a7.tar.gz json-ce4838b58104b589894081b6c5cbd52554cf87a7.zip | |
Add todo.txt
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))) |