Update of /project/cells/cvsroot/cell-cultures/ffi-extender In directory common-lisp.net:/tmp/cvs-serv12927/ffi-extender Modified Files: arrays.lisp Log Message: Delete copy of celtic mainly Date: Tue Oct 19 05:47:38 2004 Author: ktilton Index: cell-cultures/ffi-extender/arrays.lisp diff -u cell-cultures/ffi-extender/arrays.lisp:1.1 cell-cultures/ffi-extender/arrays.lisp:1.2 --- cell-cultures/ffi-extender/arrays.lisp:1.1 Sat Jun 26 20:38:42 2004 +++ cell-cultures/ffi-extender/arrays.lisp Tue Oct 19 05:47:37 2004 @@ -79,8 +79,6 @@ (,ptr (uffi:allocate-foreign-object ,type ,amt))) (call-fgn-alloc ,type ,amt ,ptr (list ,@keys))))) - - (defun call-fgn-alloc (type amt ptr keys) ;;(print `(fgnalloc ,type ,amt ,keys)) (fgn-ptr (car (push (make-fgn :id keys