22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
-
+
-
+
|
(use (prefix iup iup:))
(use canvas-draw)
(import canvas-draw-iup)
(use sql-de-lite srfi-1 posix regex regex-case srfi-69 typed-records sparse-vectors ;; defstruct
(prefix dbi dbi:))
(prefix dbi dbi:) (prefix margs args:))
(declare (uses common))
(declare (uses megatest-version))
(declare (uses margs))
;; (declare (uses margs))
;; (declare (uses launch))
;; (declare (uses gutils))
;; (declare (uses db))
;; (declare (uses server))
;; (declare (uses synchash))
(declare (uses dcommon))
|