diff options
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/Makefile.in | 1 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 9 |
2 files changed, 10 insertions, 0 deletions
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| |