57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-
+
-
-
-
-
+
|
(dbdir (conc areapath"/.mtdb")))
(if (and (file-write-access? areapath)
(not (file-exists? dbdir)))
(create-directory dbdir))
dbdir))
(define (dbmod:run-id->full-dbfname dbstruct run-id)
(conc (dbmod:get-dbdir dbstruct
(conc (dbmod:get-dbdir dbstruct)
run-id
)"/"(dbmod:run-id->dbfname run-id)))
|