Megatest

Diff
Login

Differences From Artifact [ddced4be70]:

To Artifact [2d74ee0e1f]:


35
36
37
38
39
40
41







42


43
44
45
46
47
48
49
35
36
37
38
39
40
41
42
43
44
45
46
47
48

49
50
51
52
53
54
55
56
57







+
+
+
+
+
+
+
-
+
+







(declare (uses mtmod))
(declare (uses dbmod))
(declare (uses dbfile))

(use srfi-69)

(module archivemod
	(
	 archive:get-archive-disks
	 archive:allocate-new-archive-block
	 archive:get-timestamp-dir
	 archive:megatest-db
	 archive:bup-get-data
	 archive:restore-db
	*

	 )

(import scheme)
(cond-expand
 (chicken-4
  
  (import chicken
	  ports
119
120
121
122
123
124
125
126

127
128
129
130
131
132
133
127
128
129
130
131
132
133

134
135
136
137
138
139
140
141







-
+







	srfi-13
	srfi-18
	srfi-69
	typed-records
	z3
	)
	
(include "common_records.scm")
;; (include "common_records.scm")
;; (include "db_records.scm")

;;======================================================================
;; 
;;======================================================================

;; ;; NOT CURRENTLY USED