[cello-cvs] CVS cello/cffi-extender

[ktilton]

Update of /project/cello/cvsroot/cello/cffi-extender
In directory clnet:/tmp/cvs-serv9972/cffi-extender

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


--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2006/06/04 00:09:53	1.1
+++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp	2006/07/06 22:09:10	1.2
@@ -185,7 +185,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/cello/cffi-extender/callbacks.lisp	2006/06/04 00:09:53	1.1
+++ /project/cello/cvsroot/cello/cffi-extender/callbacks.lisp	2006/07/06 22:09:10	1.2
@@ -67,7 +67,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/cello/cffi-extender/definers.lisp	2006/06/04 00:09:53	1.1
+++ /project/cello/cvsroot/cello/cffi-extender/definers.lisp	2006/07/06 22:09:10	1.2
@@ -22,7 +22,7 @@
 
 (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/cello/cffi-extender/my-uffi-compat.lisp	2006/06/04 00:09:53	1.1
+++ /project/cello/cvsroot/cello/cffi-extender/my-uffi-compat.lisp	2006/07/06 22:09:10	1.2
@@ -1,6 +1,6 @@
 (in-package :ffx)
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(falloc)))
 
 ;;;(defun deref-array (array type position)