48 |
(clines "load1(\"../xgcl-2/sysdef.lisp\");") |
(clines "load1(\"../xgcl-2/sysdef.lisp\");") |
49 |
,@(sloop::sloop for x in files |
,@(sloop::sloop for x in files |
50 |
for f = (substitute #\_ #\- x) |
for f = (substitute #\_ #\- x) |
51 |
for ff = (namestring (truename (format nil "~a.o" x))) |
; for ff = (namestring (truename (format nil "~a.o" x))) |
52 |
|
for ff = (namestring (format nil "~a.o" x)) |
53 |
do (princ ff st) (princ " " st) |
do (princ ff st) (princ " " st) |
54 |
collect |
collect |
55 |
`(clines ,(Format nil "init_or_load(init_~a,\"~a\");" f ff)) |
`(clines ,(Format nil "init_or_load(init_~a,\"~a\");" f ff)) |