(define (db-query conn statement #!optional (vars '())) (let ((sql (ssql->sql conn statement))) (query* conn sql vars))) (let ((statement (alist->ssql 'users '((name . "foo") (email . "foo@bar") (age . 40))))) (apply db-query db-connection statement))