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)