/[gcl]/gcl/xgcl-2/sysinit.lsp
ViewVC logotype

Diff of /gcl/xgcl-2/sysinit.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1.2.1 by camm, Thu Mar 20 15:22:55 2003 UTC revision 1.1.1.1.2.1.4.1 by camm, Sun Oct 19 02:25:43 2003 UTC
# Line 31  Line 31 
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);")

Legend:
Removed from v.1.1.1.1.2.1  
changed lines
  Added in v.1.1.1.1.2.1.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26