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))
