fixups

src/fasl-lib.lisp

@@ -90,7 +90,9 @@ symbols defined in SYSTEMS. The C functions to perform
                    :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>~%")
+      (progn
+        (format stream "#define _GNU_SOURCE~%")
+        (format stream "#include <dlfcn.h>~%"))
       #+win32
       (format stream "#include <Windows.h>~%")
       (format stream "#include \<~A.h\>~%" *base-library-name*)
@@ -110,7 +112,7 @@ symbols defined in SYSTEMS. The C functions to perform
           #+linux
           (progn
             (format stream "    Dl_info info;~%")
-            (format stream "    dladdr(~A_fasl, &info);~%" (system-c-name (first systems)))
+            (format stream "    dladdr(~A_fasl, &info);~%" (system-c-name (first (remove-if-not #'system-loadable-from-fasl-p systems))))
             (format stream "    dlopen(info.dli_fname, RTLD_NOW | RTLD_GLOBAL);~%"))
           #+win32
           (let ((buf-size 1024))