31 |
;;define a function USER::USER-INIT, which will run the init code for a set |
;;define a function USER::USER-INIT, which will run the init code for a set |
32 |
;;of files which are linked into an image. |
;;of files which are linked into an image. |
33 |
|
|
34 |
(clines "#define init_or_load(fn,file) do {extern void fn(void); init_or_load1(fn,file);} while(0)") |
(clines "#define init_or_load(fn,file) do {extern void fn(void); gcl_init_or_load1(fn,file);} while(0)") |
35 |
(clines "static void") |
(clines "static void") |
36 |
(clines "load1(char *x) {") |
(clines "load1(char *x) {") |
37 |
(clines "printf(\"loading %s\\n\",x);") |
(clines "printf(\"loading %s\\n\",x);") |