transcendental-lisp/lisp/random/structure.lisp

18 lines
466 B
Common Lisp
Raw Permalink Normal View History

(defmacro keys (&rest fields)
`(let ,(mapcar 'list fields)
(dlambda
(:get (field) (eval field))
(:set (field value) (set field value)))))
2017-03-09 14:14:54 -05:00
(defun process-data (data)
(let ((one (call data :get 'one))
(two (call data :get 'two))
(three (call data :get 'three)))
(list one two three)))
(setq data (keys one two three))
(call data :set 'one "goodbye")
(call data :set 'two "key")
(call data :set 'three "!")
(process-data data)