Browse files

Fix closing shared libraries on CCL

If a library is dependen upon by another one loaded in the image, then
CCL:CLOSE-SHARED-LIBRARY will end up in an endless loop, because it
tries to repeatedly call dlclose() until it succeeds
  • Loading branch information...
1 parent 0dd35f7 commit 36fc2b02784beefcb91f22d8b77b4fccd5451645 @sionescu sionescu committed Sep 19, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/cffi-openmcl.lisp
@@ -299,7 +299,9 @@ WITH-POINTER-TO-VECTOR-DATA."
(defun %close-foreign-library (name)
"Close the foreign library NAME."
- (close-shared-library name)) ; :completely t ?
+ ;; C-S-L sometimes ends in an endless loop
+ ;; with :COMPLETELY T
+ (close-shared-library name :completely nil))
(defun native-namestring (pathname)
(ccl::native-translated-namestring pathname))

0 comments on commit 36fc2b0

Please sign in to comment.