[gtk-cffi-cvs] CVS gtk-cffi/examples

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/examples
In directory tiger.common-lisp.net:/tmp/cvs-serv30885/examples

Modified Files:
	ex4.lisp 
Log Message:
Backed to CFFI 10.7 (was version from git)


--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex4.lisp	2012/12/15 14:33:08	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex4.lisp	2012/12/31 13:33:38	1.6
@@ -168,7 +168,7 @@
   ;;(declare (optimize speed))
   ;;(format t
   ;;        "~A ~A ~A ~A ~A~%" column cell model iter col-num)
-  (let* ((iter (make-instance 'tree-iter :pointer iter-ptr))
+  (let* ((iter (make-instance 'tree-iter :pointer iter-ptr :free-after nil))
          ;; (row-num (cffi:mem-aref
          ;;       (gtk-cffi::gtk-tree-path-get-indices
          ;;        (gtk-cffi::gtk-tree-model-get-path