Locations to hold foreign values return by reference initialized to NULL

diff --git a/glib/ffi.lisp b/glib/ffi.lisp
index a50499ed2e8f86ab6749375acb6613cfb26ae103..bc33d633ae42346a9edf6c2cc1a8f50b3487c54d 100644 (file)
--- a/glib/ffi.lisp
+++ b/glib/ffi.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: ffi.lisp,v 1.13 2005/02/03 23:09:03 espen Exp $
+;; $Id: ffi.lisp,v 1.14 2005/02/14 17:49:17 espen Exp $

 
 (in-package "GLIB")
 
 
 (in-package "GLIB")
 


@@ -128,8 +128,9 @@ (defun %defbinding (foreign-name lisp-name lambda-list return-type docs args)
             (alien-parameters `(addr ,var))
             (alien-bindings
              `(,var ,declaration
             (alien-parameters `(addr ,var))
             (alien-bindings
              `(,var ,declaration

-               ,@(when (eq style :in-out)
-                   (list (to-alien-form expr type)))))
+               ,(if (eq style :in-out)
+                    (to-alien-form expr type)
+                  (make-pointer 0))))

             (return-values (from-alien-form var type)))
            ((eq style :return)
             (alien-types declaration)
             (return-values (from-alien-form var type)))
            ((eq style :return)
             (alien-types declaration)