diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-19 14:58:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-19 14:58:09 +0000 |
| commit | f896b8096ecaf448a23d59a4c2bc23916a0bb8a1 (patch) | |
| tree | 40fe0782d5ea8c6b02237dd85cbda4cd173d2a85 /src/lisp | |
| parent | 266ea5411812a28402680497a871c68a837bf1c0 (diff) | |
| download | open-axiom-f896b8096ecaf448a23d59a4c2bc23916a0bb8a1.tar.gz | |
Port from btx-branch.
* lisp/core.lisp.in ($effectiveFaslType): New.
* boot/translator.boot (needsStableReference?): Handle the ECL case.
(coerceToNativeType): Likewise.
(genImportDeclaration): Likewise.
(shoeRemoveStringIfNec): Fix thinko.
($bootDefined): Define.
($bootDefinedTwice): Likewise.
($lispWordTable): Likewise.
(getIntermediateLispFile): Use $effectiveFaslType.
(loadSystemRuntimeCore): Use coreError, not systemError.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 8cb2f755..38ebcc5b 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -74,6 +74,7 @@ "$targetPlatform" "$faslType" + "$effectiveFaslType" "$NativeModuleExt" "$systemInstallationDirectory" "$NativeTypeTable" @@ -140,6 +141,12 @@ (defconstant |$faslType| (pathname-type (compile-file-pathname "foo.lisp"))) +(defconstant |$effectiveFaslType| + ;#+:ecl (pathname-type (compile-file-pathname "foo.lisp" :system-p t)) + ;; until ECL is fixed, return a hard coded value + "o" + #-:ecl |$faslType|) + ;; Extension of file containers for native shared libraries. (defconstant |$NativeModuleExt| "@SHREXT@") |