
(eval-when (:compile-toplevel :load-toplevel)
  (let ((curdir (make-pathname :name nil
                               :type nil
                               :version nil
                               :defaults (or *compile-file-truename*
                                             *load-pathname*))))
    (si::chdir (namestring curdir))))

(uffi:def-function ("getValue" get-value)
                   ()
                   :module "getset.dll"
                   :returning :int)

(uffi:def-function ("setValue" set-value)
                   ((value :int))
                   :module "getset.dll"
                   :returning :int)

