graphic-forms-cvs

Download

graphic-forms-cvs@common-lisp.net

March 2007

1 participants
21 discussions

[graphic-forms-cvs] r431 - trunk/src/uitoolkit/system
by junrue＠common-lisp.net 11 Mar '07

11 Mar '07

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

1 0