From 44b663e359a5eb909cbea35581af361652b51382 Mon Sep 17 00:00:00 2001 From: Kartik Singh Date: Thu, 5 Dec 2024 08:53:13 -0800 Subject: [PATCH] fixups --- src/fasl-lib.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/fasl-lib.lisp b/src/fasl-lib.lisp index 88596799..1f2e911a 100644 --- a/src/fasl-lib.lisp +++ b/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 ~%") + (progn + (format stream "#define _GNU_SOURCE~%") + (format stream "#include ~%")) #+win32 (format stream "#include ~%") (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))