dlopen fasl lib on Linux

src/fasl-lib.lisp

@@ -89,6 +89,8 @@ symbols defined in SYSTEMS. The C functions to perform
                  :when (typep system 'asdf:require-system)
                    :do (format stream "~v@{ ~}lisp_require(\"~A\");~%" indent-size system-name))))
     (with-open-file (stream (uiop:merge-pathnames* *fasl-loader-filename* directory) :direction :output :if-exists :supersede)
+      #+linux
+      (format stream "#include <dlfcn.h>~%")
       #+win32
       (format stream "#include <Windows.h>~%")
       (format stream "#include \<~A.h\>~%" *base-library-name*)
@@ -105,6 +107,11 @@ symbols defined in SYSTEMS. The C functions to perform
       (progn
         (let ((function-name (fasl-library-load-function-name library)))
           (format stream "__attribute__((constructor))~%static void ~A(void) {~%" function-name)
+          #+linux
+          (progn
+            (format stream "    Dl_info info;~%")
+            (format stream "    dladdr(~A_fasl, &info);~%" (system-c-name (first systems)))
+            (format stream "    dlopen(info.dli_fname, RTLD_NOW | RTLD_GLOBAL);~%"))
           #+win32
           (let ((buf-size 1024))
             (format stream "    char dll_path[~D];~%" buf-size)