[cello-cvs] CVS cello/cffi-extender

[ktilton]

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 , at 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)