aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-utility.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r--src/interp/sys-utility.boot8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot
index d74c74ba..8c80701d 100644
--- a/src/interp/sys-utility.boot
+++ b/src/interp/sys-utility.boot
@@ -175,3 +175,11 @@ checkMkdir path ==
++ return the pathname to the system module designated by `m'.
getSystemModulePath m ==
CONCAT(systemRootDirectory(),'"algebra/",m,'".",$faslType)
+
+++ Load native dynamically linked module
+loadNativeModule m ==
+)if %hasFeature KEYWORD::SBCL
+ SB_-ALIEN::LOAD_-SHARED_-OBJECT m
+)else
+ systemError '"don't know how to load a dynamically link module"
+)endif