diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-20 22:13:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-20 22:13:31 +0000 |
| commit | 6511f77b63b9a74b65ac7e3d8f1a3f053970cb75 (patch) | |
| tree | 3fd5a052bce84ad9e4be19b546c34f6a23ba8cc9 /src/lisp | |
| parent | 1f8dd2c2a72ad4ae908ca199bcaa066caf5c409d (diff) | |
| download | open-axiom-6511f77b63b9a74b65ac7e3d8f1a3f053970cb75.tar.gz | |
* boot/Makefile.in (oa_boot_linkset): Tidy.
($(oa_boot_linkset)): New Make rule.
* lisp/Makefile.in (oa_base_lisp_linkset): Tidy.
($(oa_base_lisp_linkset)): New Make rule.
* lisp/core.lisp.in (linkset-from): Read the linkset from the file.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/Makefile.in | 6 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/src/lisp/Makefile.in b/src/lisp/Makefile.in index 5c5233fd..2f0270b1 100644 --- a/src/lisp/Makefile.in +++ b/src/lisp/Makefile.in @@ -59,7 +59,7 @@ FASLS = $(patsubst %,"%", $(addsuffix $(fasl_ext),core)) ifeq (@axiom_lisp_flavor@,ecl) base_lisp_objects = ("core.$(LNKEXT)") -oa_base_lisp_linkset = $(oa_target_lispdir)/core.$(LNKEXT) +oa_base_lisp_linkset = $(oa_target_lispdir)/linkset else base_lisp_objects = nil oa_base_lisp_linkset = @@ -122,6 +122,9 @@ base-lisp$(EXEEXT): core.$(FASLEXT) $(oa_base_lisp_linkset) $(eval_flags) '(load "core")' \ $(eval_flags) '(|AxiomCore|::|link| "$@" (quote $(base_lisp_objects)) "|AxiomCore|::|topLevel|")' +$(oa_base_lisp_linkset): $(oa_target_lispdir)/core.$(LNKEXT) + rm -f $@ + echo '$(base_lisp_objects)' > $@ axiom_optimize_options = @axiom_optimize_options@ @@ -142,7 +145,6 @@ edit = sed \ -e 's|@SHREXT[@]|$(SHREXT)|g' \ -e 's|@LIBEXT[@]|$(LIBEXT)|g' \ -e 's|@oa_c_runtime_extra[@]|$(oa_c_runtime_extra)|g' \ - -e 's|@oa_base_lisp_linkset[@]|$(base_lisp_objects)|g' \ -e 's|@oa_standard_linking[@]|$(oa_standard_linking)|g' \ -e 's|@void_type[@]|$(void_type)|g' \ -e 's|@char_type[@]|$(char_type)|g' \ diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 77e44fe3..d1e24b9a 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -235,9 +235,9 @@ ;; Return the list of linkable fasls in in the directory `dir'. (defun linkset-from (dir) - (directory (make-pathname :directory (pathname-directory dir) - :name :wild - :type |$effectiveFaslType|))) + (mapcar #'(lambda(f) (concatenate 'string dir f)) + (with-open-file (stream (concatenate 'string dir "linkset")) + (read stream t)))) ;; Return a path to the the subdirectory `subdir' within the ;; OpenAxiom filesystem. |