clsqlについては http://d.hatena.ne.jp/yuki_neko_nyan/searchdiary?word=clsql がすごくよくまとまっている。参考になる。 CLOSを用いた簡易O/R Mapperのような機能をつかい、セレクタマクロを書いて、dbからレコードを取得していた。 (defmacro db-select-1 (db slot target) `(car (clsql:select ,db :where (clsql:sql-= (sql-slot-value ,db ,slot) ,target) :flatp t))) (defmacro $d (db slot target) `(db-select-1 ,db ,slot ,target)) ($d 'user 'id 0) -> <USER> しかし、長時間アクセスがないと、dbがとまってしまう