From 4eac848453f0292def5aa5e97863bb92cb8801f2 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Tue, 15 Feb 2005 15:28:15 +0000
Subject: [PATCH] Fixed previous broken change to DEFBINDING

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

diff --git a/glib/ffi.lisp b/glib/ffi.lisp
index bc33d63..26cf8f4 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.14 2005/02/14 17:49:17 espen Exp $
+;; $Id: ffi.lisp,v 1.15 2005/02/15 15:28:15 espen Exp $
 
 (in-package "GLIB")
 
@@ -128,9 +128,10 @@
 	     (alien-parameters `(addr ,var))
 	     (alien-bindings
 	      `(,var ,declaration
-		,(if (eq style :in-out)
-		     (to-alien-form expr type)
-		   (make-pointer 0))))
+		,@(cond 
+		   ((eq style :in-out) (list (to-alien-form expr type)))
+		   ((eq declaration 'system-area-pointer) 
+		    (list '(make-pointer 0))))))
 	     (return-values (from-alien-form var type)))
 	    ((eq style :return)
 	     (alien-types declaration)
-- 
2.11.0