From f896b8096ecaf448a23d59a4c2bc23916a0bb8a1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 19 May 2008 14:58:09 +0000
Subject: 	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.

---
 src/lisp/core.lisp.in | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/lisp')

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@")
-- 
cgit v1.2.3