[cells-gtk-cvs] CVS root/gtk-ffi

[pdenno]

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))