X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-model.lisp;h=6cbdb962c0ea723456b53042172bb84824a3e21a;hb=9af0a44db2b9491749a7936c782c3d7ff1b804a3;hp=788e028a0f677b177609baf8ac0167aecb1d65f6;hpb=51aa0c04d9522fa9c17555cc779036aa9703ef02;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 788e028..6cbdb96 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -90,7 +90,7 @@
     t))
 
 (defmethod tree-model-iter-n-children-impl ((model array-list-store) iter)
-  (if (null-pointer-p iter)
+  (if (null iter)
       (length (store-items model))
       0))