From a2f39f13bed2d39accb83cbb7f9e3336b2c92c1c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 15 Aug 2008 09:20:22 +0000
Subject: * lisp/core.lisp.in (|$StandardLinking|): New. Export.
* lisp/Makefile.in (edit): Update. * interp/daase.lisp: Don't load
initial databases when --system-algebra. *
interp/Makefile.pamphlet (${SAVESYS}): Build with --system-algebra.
---
src/lisp/Makefile.in | 1 +
src/lisp/core.lisp.in | 9 +++++++++
2 files changed, 10 insertions(+)
(limited to 'src/lisp')
diff --git a/src/lisp/Makefile.in b/src/lisp/Makefile.in
index 4ca6535e..5c5233fd 100644
--- a/src/lisp/Makefile.in
+++ b/src/lisp/Makefile.in
@@ -143,6 +143,7 @@ edit = sed \
-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' \
-e 's|@int_type[@]|$(int_type)|g' \
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 1339de0f..27f0dd41 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -79,6 +79,7 @@
"$systemInstallationDirectory"
"$NativeTypeTable"
"$LispOptimizeOptions"
+ "$StandardLinking"
"getOptionValue"
"getCommandLineArguments"
@@ -135,6 +136,14 @@
;; -*- Hosting Lisp System -*-
;;
+;; True means that the base Lisp system uses conventional C-style
+;; program linking model, whereby programs are constructed by linking
+;; separately compiled units. By constrast, many Lisp systems build
+;; executable programs by loading FASLs into core and dumping the resulting
+;; image on disk.
+(defconstant |$StandardLinking|
+ (eq '@oa_standard_linking@ 'yes))
+
;; Almost every supported Lisp use dynamic link for FFI.
;; ECL's support is partial. GCL-2.6.x hasn't discovered it yet.
(defconstant |$useDynamicLink|
--
cgit v1.2.3