[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-core.lisp

[Peter Denno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv15166/root/gtk-ffi

Modified Files:
	gtk-core.lisp 
Log Message:
Start of work to get SBCL port working. Unfinished (but it doesn't look too hard!). 
Date: Sat Oct  8 16:44:41 2005
Author: pdenno

Index: root/gtk-ffi/gtk-core.lisp
diff -u root/gtk-ffi/gtk-core.lisp:1.3 root/gtk-ffi/gtk-core.lisp:1.4
--- root/gtk-ffi/gtk-core.lisp:1.3	Fri Dec 24 03:04:00 2004
+++ root/gtk-ffi/gtk-core.lisp	Sat Oct  8 16:44:40 2005
@@ -72,10 +72,16 @@
              (* (alien:struct gtk-ffi::g-value
                               (gtk-ffi::g-type (array (alien:signed 32) 16)))))
 
+#+sbcl
+(ffx:def-type g-value-type
+             (* (sb-alien:struct gtk-ffi::g-value
+                              (gtk-ffi::g-type (array (sb-alien:signed 32) 16)))))
+
+
 (defun call-with-g-value (fn)
   (declare (optimize (speed 3) (safety 0) (space 0)))
   (let ((gva (ffx:fgn-alloc 'g-value 1 :with-g-value)))
-    #+cmu (declare (type g-value-type gva))
+    #+(or cmu sbcl) (declare (type g-value-type gva))
     (unwind-protect
         (progn 
           (dotimes (n 16)