;; To avoid using an unexported symbol, I've kludge worked around it via (loop for lib in *cffi-libs* do (ignore-errors (handler-bind ;workaround foreign libs w/hardcoded .so file directories ((cffi:load-foreign-library-error (lambda (err) (let* ((name (pathname-name (caar (simple-condition-format-arguments err)))) (cmd `(cffi:define-foreign-library ,lib (t (:default ,name))))) (eval cmd) (cffi:load-foreign-library lib :search-path ld-path))))) (cffi:load-foreign-library lib :search-path ld-path))))