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

[pdenno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory clnet:/tmp/cvs-serv18037/root/gtk-ffi

Modified Files:
	gtk-ffi.lisp 
Log Message:
Use #. merge-pathname *compile-file-pathname* something like Andras was doing previously.

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp	2006/06/30 15:26:54	1.22
+++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp	2006/07/07 17:25:30	1.23
@@ -110,14 +110,12 @@
 
 #+libcellsgtk
 (cffi:define-foreign-library :cgtk
-  (cffi-features:unix "libcellsgtk.so")
-  (cffi-features:windows "libcellsgtk.dll")
-  (cffi-features:darwin "libcellsgtk.dylib"))
+  (cffi-features:unix #.(merge-pathnames "libcellsgtk.so" *compile-file-pathname*))
+  (cffi-features:windows #.(merge-pathnames "libcellsgtk.dll" *compile-file-pathname*))
+  (cffi-features:darwin #.(merge-pathnames "libcellsgtk.dylib" *compile-file-pathname*)))
 ) ;eval-when
 
 ;;; After doing this, should be able to do (g-thread-init c-null)
-;;; The above define-foreigh-library appears to be useless (doesn't
-;;; work through the symbols) use the names. 
 
 ;;; LW Win32 is hanging on POD's machine only:
 ;;; (fli:register-module "libgdk-win32-2.0-0.dll" :connection-style :immediate)