mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-27 19:50:44 -07:00
Code Issues Projects Releases Packages Wiki Activity

Rely on COMPILE-FILE-PATHNAME to compute the actual static library name.

Browse source
This commit is contained in:
goffioul 2005-10-26 15:07:52 +00:00
parent 2301f0ceed
commit 56379e1025
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/ffi.lsp
View file

@ -614,7 +614,7 @@
(defvar +loaded-libraries+ nil)
(defun do-load-foreign-library (tmp)
(let* ((filename (if (pathnamep tmp) (namestring tmp) (string tmp)))
(let* ((filename (namestring (compile-file-pathname tmp :type :lib)))
(pack (find-package "COMPILER")))
(unless (find filename ffi::+loaded-libraries+ :test #'string-equal)
(setf (symbol-value (intern "*LD-FLAGS*" pack)) (concatenate 'string (symbol-value (intern "*LD-FLAGS*" pack)) " " filename))