Update of /project/cello/cvsroot/cello/cffi-extender In directory clnet:/tmp/cvs-serv29491/cffi-extender
Modified Files: arrays.lisp cffi-extender.lpr Log Message: important fixes to cl-magick and cello demo nehe-06
--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2006/07/06 22:09:10 1.2 +++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2006/08/31 17:34:47 1.3 @@ -80,6 +80,14 @@ :ptr ptr) *fgn-mem*))))
+(defun fgn-free-all () + (loop for f in *fgn-mem* do + (foreign-free (fgn-ptr f)) + finally (setf *fgn-mem* nil))) + +#+go +(fgn-free-all) + (defun fgn-free (&rest fgn-ptrs) ;; (print `(fgn-free freeing ,@fgn-ptrs)) (let ((start (copy-list fgn-ptrs))) --- /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr 2006/08/21 04:28:27 1.4 +++ /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr 2006/08/31 17:34:47 1.5 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Jul 24, 2006 15:27)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Aug 24, 2006 21:48)"; cg: "1.81"; -*-
(in-package :cg-user)