mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 02:10:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Do not alter pathnames when supplied by the user

Browse source
This commit is contained in:
jjgarcia 2005-11-14 10:45:52 +00:00
parent 2e458ac55a
commit 5bd56c2787
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/ffi.lsp
View file

@ -618,7 +618,10 @@
(defvar +loaded-libraries+ nil)
(defun do-load-foreign-library (tmp)
(let* ((filename (namestring (compile-file-pathname tmp :type :lib)))
(let* ((path (cond ((pathnamep tmp) tmp)
((probe-file (setf tmp (string tmp))) tmp)
(t (compile-file-pathname tmp :type #+msvc :lib #-msvc :dll))))
(filename (namestring path))
(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))