76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
-
+
-
-
-
-
+
|
(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)))
|