Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv30370/root/cells-gtk

Modified Files: tree-view.lisp Log Message: Misplaced declare ignore makes clisp and cmucl error. Date: Tue Jan 3 20:01:59 2006 Author: pdenno

Index: root/cells-gtk/tree-view.lisp diff -u root/cells-gtk/tree-view.lisp:1.11 root/cells-gtk/tree-view.lisp:1.12 --- root/cells-gtk/tree-view.lisp:1.11 Sun May 29 23:13:06 2005 +++ root/cells-gtk/tree-view.lisp Tue Jan 3 20:01:59 2006 @@ -84,7 +84,6 @@ ;;; Used by combo-box also, when it is using a tree model. (ff-defun-callable :cdecl :void tree-view-items-selector ((model :pointer-void) (path :pointer-void) (iter :pointer-void) (data :pointer-void)) - (declare (ignore path data)) (let ((tree (of-tree (gtk-object-find model)))) (push (item-from-path (children-fn tree)