Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv2145/root/gtk-ffi
Modified Files: gtk-ffi.lisp Log Message: Marco's patch http://common-lisp.net/pipermail/cells-gtk-devel/2006-May/000171.html
--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/02/19 20:17:41 1.19 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/06/01 14:16:28 1.20 @@ -16,7 +16,10 @@
|#
-(defpackage :gtk-ffi (:use :common-lisp :pod)) +(eval-when (:compile-toplevel :load-toplevel :execute) + (unless (find-package :gtk-ffi) + (defpackage :gtk-ffi + (:use :common-lisp :pod))))
(in-package :gtk-ffi)
@@ -138,7 +141,7 @@ #+macosx "libcellsgtk.dylib"))) ) ; eval
-(eval-when (:compile-toplevel :execute) +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(+c-null+ int-slot-indexed load-gtk-libs)) (defun gtk-function-name (lisp-name) (substitute #_ #- lisp-name))