Attempted macro for implementing a "with-sqlite-db"

sqlite-test-suite.dylan

define macro with-sqlite-db
  { with-sqlite-db (?db-location:expression) ?:body end }
    => {
        let (result, sqlite3-db) = sqlite3-open(?db-location);
        ?body;
        sqlite3-close(sqlite3-db);
       }
end macro with-sqlite-db;