Fixed previous broken change to DEFBINDING

diff --git a/glib/ffi.lisp b/glib/ffi.lisp
index bc33d633ae42346a9edf6c2cc1a8f50b3487c54d..26cf8f4bdd1c6cf00e9163f6db9790937b44337b 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
 
-;; $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 @@ (defun %defbinding (foreign-name lisp-name lambda-list return-type docs args)
             (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)