[graphic-forms-cvs] r431 - trunk/src/uitoolkit/system

[junrue at common-lisp.net]

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