From 1ea49abfbc5c39f9da9534d012de529c1185916d Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Mon, 14 Feb 2005 17:49:17 +0000
Subject: [PATCH] Locations to hold foreign values return by reference
 initialized to NULL

---
 glib/ffi.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/glib/ffi.lisp b/glib/ffi.lisp
index 36d0e7b..6797b39 100644
--- 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
 
-;; $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")
 
@@ -128,8 +128,9 @@
 	     (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)
-- 
2.11.0