Author: junrue Date: Sun Mar 11 12:45:20 2007 New Revision: 431
Modified: trunk/src/uitoolkit/system/metrics.lisp Log: fix for CFFI API change: foreign-funcall cannot be used on pointers any more
Modified: trunk/src/uitoolkit/system/metrics.lisp ============================================================================== --- trunk/src/uitoolkit/system/metrics.lisp (original) +++ trunk/src/uitoolkit/system/metrics.lisp Sun Mar 11 12:45:20 2007 @@ -44,7 +44,7 @@ (cffi:with-foreign-slots ((gfs::size gfs::vermajor gfs::verminor gfs::buildnum) info-ptr gfs::dllversioninfo) (setf gfs::size (cffi:foreign-type-size 'gfs::dllversioninfo)) - (cffi:foreign-funcall func-ptr gfs::dllversioninfo info-ptr gfs::hresult) + (cffi:foreign-funcall-pointer func-ptr (:cconv :stdcall) :pointer info-ptr gfs::hresult) (setf version (list gfs::vermajor gfs::verminor gfs::buildnum)))))) (gfs::free-library hmodule))) version))