(defun init-lib (seed my-var-file)
  (declare (ignore my-var my-var-2))
  (cffi:defcvar ("MY_VAR_2" my-var-2) :int)
  (cffi:defcvar ("MY_VAR" my-var) :pointer)
  (format t "reading my-var...~%" )
  (setf my-var
        (cffi:foreign-funcall "my-var_read"
                              :string my-var-file
                              :pointer (cffi:get-var-pointer 'MY-VAR-2)
                              :pointer))
  (format t "loaded ~D my-var ~%" MY-VAR-2)
  (cffi:foreign-funcall "srand" :int seed)
  )