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)