[cello-cvs] CVS hello-cffi

[ktilton]

Update of /project/cello/cvsroot/hello-cffi
In directory clnet:/tmp/cvs-serv9908

Modified Files:
	arrays.lisp callbacks.lisp definers.lisp my-uffi-compat.lisp 
Log Message:


--- /project/cello/cvsroot/hello-cffi/arrays.lisp	2006/05/17 04:29:42	1.1
+++ /project/cello/cvsroot/hello-cffi/arrays.lisp	2006/08/21 04:31:01	1.2
@@ -188,7 +188,7 @@
 (defmacro fgn-pa (pa n)
   `(mem-aref ,pa :pointer ,n))
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(ffx-reset
            ff-elt ff-list
            eltf eltd elti fgn-pa
--- /project/cello/cvsroot/hello-cffi/callbacks.lisp	2006/06/29 09:55:58	1.2
+++ /project/cello/cvsroot/hello-cffi/callbacks.lisp	2006/08/21 04:31:01	1.3
@@ -56,7 +56,7 @@
 
 
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(ff-register-callable
             ff-defun-callable
             ff-pointer-address)))
\ No newline at end of file
--- /project/cello/cvsroot/hello-cffi/definers.lisp	2006/05/17 04:29:42	1.1
+++ /project/cello/cvsroot/hello-cffi/definers.lisp	2006/08/21 04:31:01	1.2
@@ -20,11 +20,11 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;; $Header: /project/cello/cvsroot/hello-cffi/definers.lisp,v 1.1 2006/05/17 04:29:42 ktilton Exp $
+;; $Header: /project/cello/cvsroot/hello-cffi/definers.lisp,v 1.2 2006/08/21 04:31:01 ktilton Exp $
 
 (in-package :ffx)
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(   
             defun-ffx defun-ffx-multi
                dffr
--- /project/cello/cvsroot/hello-cffi/my-uffi-compat.lisp	2006/05/17 04:29:42	1.1
+++ /project/cello/cvsroot/hello-cffi/my-uffi-compat.lisp	2006/08/21 04:31:01	1.2
@@ -1,6 +1,6 @@
 (in-package :cffi)
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(falloc)))
 
 (defun deref-array (array type position)