From: Nikodemus S. <nik...@ra...> - 2008-10-17 18:08:14
|
On Fri, Oct 17, 2008 at 8:24 PM, Zach Beane <xa...@xa...> wrote: > (defun %close-foreign-library (handle) > "Closes a foreign library." > (sb-alien::dlclose-or-lose > (find (sb-ext:native-namestring handle) sb-alien::*shared-objects* > :key #'sb-alien::shared-object-file > :test #'string=))) Unless there are objections I'll add SB-SYS:FIND-SHARED-OBJECT and SB-SYS:CLOSE-SHARED-OBJECT so that CFFI doesn't have to get it's fingers /quite/ so dirty. Cheers, -- Nikodemus |