/[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.3 by camm, Sun Oct 19 02:20:29 2003 UTC revision 1.4 by camm, Tue Sep 28 16:27:47 2004 UTC
# Line 48  Line 48 
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))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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