[wxCL-cvs] SF.net SVN: wxcl: [511] trunk/wxcl/src/app.lisp

[<efu...@us...>]

Revision: 511
Author:   efuzzyone
Date:     2006-07-04 01:00:16 -0700 (Tue, 04 Jul 2006)
ViewCVS:  http://svn.sourceforge.net/wxcl/?rev=511&view=rev

Log Message:
-----------
depending on cffi to load the library

Modified Paths:
--------------
    trunk/wxcl/src/app.lisp
Modified: trunk/wxcl/src/app.lisp
===================================================================
--- trunk/wxcl/src/app.lisp	2006-07-04 07:58:26 UTC (rev 510)
+++ trunk/wxcl/src/app.lisp	2006-07-04 08:00:16 UTC (rev 511)
@@ -31,15 +31,12 @@
 (defvar *events-counter* 0)
 
 (defun start-app (init-func)
+  (setf *app-start-func* init-func
+	*events-table* nil
+	*events-counter* 0)
   (unwind-protect
-       (progn 
-         (cffi:load-foreign-library +library-name+)
-         (setf *app-start-func* init-func
-               *events-table* nil
-               *events-counter* 0)
-         (ELJApp_InitializeC (wxClosure_Create (cffi:callback initialize-wxcl) *events-counter*)
-                             0 (cffi:null-pointer)))
-    (cffi::close-foreign-library +library-name+)))
+       (ELJApp_InitializeC (wxClosure_Create (cffi:callback initialize-wxcl) *events-counter*)
+                           0 (cffi:null-pointer))))
 
 (cffi:defcallback initialize-wxcl :void ((evt :pointer) (wxcl-event-id :unsigned-int))
 ;                  (initialize-objects *function-list*)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.