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)