close and re-open foreign libraries on lisp images

image-builder.lisp

(let ((%loaded-libraries% (list)))
  (defun %pre-image-save ()
    (loop :for library :in (cffi:list-foreign-libraries :loaded-only t) :do
          (format T "close foreign lib: ~A~%" library)
          (push (cffi:foreign-library-name library) %loaded-libraries%)
          (cffi:close-foreign-library library)))
  
  (defun %post-image-load ()
    (loop :while %loaded-libraries% :do
          (let ((library-name (pop %loaded-libraries%)))
            (format T "load foreign lib: ~A~%" library-name)
            (cffi:load-foreign-library library-name)))))

(defun make-image ()
  (%pre-image-save)
  (sb-ext:save-lisp-and-die "my-image-name"
                            :purify T
                            :toplevel
                            #'(lambda ()
                                (%post-image-load)
                                (my-main-function))
                            :executable t
                            ;; :application-type :gui
                            :save-runtime-options t))