gistfile1.lisp

(defmacro config-value-bind ((fname &rest symbols) &body body)
  (let ((s (gensym "s"))
        (f (gensym "f"))
        )
    `(with-open-file (,f ,fname)
       (let* ((,s (read ,f))
              ,@(mapcar #'(lambda (x) `(,x (cdr (assoc ',x ,s)))) symbols)
              )
         ,@body
         )
       )
    ))

#|
;; == config.sexp ==
;; kokokara
((hoge . "xxx")
 (foo . yyy)
 (bar . :zzz)
 )
;; kokomade
;; == how to use ==
(config-value-bind ("config.sexp"
                    hoge foo bar)
  (list hoge foo bar)
  ) ; -> ("xxx" YYY :ZZZ)
|#