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

[CVS User rklochkov]

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

Modified Files:
	lisp-model.lisp 
Log Message:
Refactored freeable
Added loadlib to gio
Fixed compilation without loading



--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/01/21 18:37:52	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/01/25 19:15:08	1.2
@@ -83,8 +83,9 @@
   (:method ((lisp-model-array lisp-model-array))
     (length (larray lisp-model-array))))
 
-(defmethod get-iter ((lisp-model-impl lisp-model-impl) iter path)
-  (warn "Undefined implementation of GET-ITER for ~a" lisp-model-impl))
+(defgeneric get-iter (lisp-model)
+  (:method get-iter ((lisp-model-impl lisp-model-impl) iter path)
+    (warn "Undefined implementation of GET-ITER for ~a" lisp-model-impl)))
 
 (defun set-iter (iter index)
   (with-foreign-slots ((stamp u1) iter tree-iter-struct)
@@ -199,6 +200,7 @@
     (multiple-value-bind (found index children)
         (descend (tree lisp-model)
                  (iter->path-list lisp-model iter))
+      (declare (ignore found index))
       (length children))))
 
 (defgeneric iter-nth-child (lisp-model-impl iter parent n)
@@ -287,6 +289,7 @@
 
 (defcfun gtk-tree-model-get-type :uint) 
 
+(defgeneric get-type (lisp-model))
 (let ((interface-info (foreign-alloc 'g-interface-info))
       g-type)
   (setf (foreign-slot-value interface-info 'g-interface-info 'init)