93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;; (declare (uses items))
;; (declare (uses runconfig))
;; ;; (declare (uses sdb))
;; ;; (declare (uses filedb))
;;
;; (include "common_records.scm")
;; (include "key_records.scm")
(include "db_records.scm")
;; (include "run_records.scm")
;;
;;
;;(rmt:get-test-info-by-id run-id test-id) -> testdat
(define message-window #f)
|
|
|
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;; (declare (uses items))
;; (declare (uses runconfig))
;; ;; (declare (uses sdb))
;; ;; (declare (uses filedb))
;;
;; (include "common_records.scm")
;; (include "key_records.scm")
;; (include "db_records.scm")
;; (include "run_records.scm")
;;
;;
;;(rmt:get-test-info-by-id run-id test-id) -> testdat
(define message-window #f)
|