Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv30350/root/cells-gtk
Modified Files: textview.lisp Log Message: Misplaced declare ignore makes clisp and cmucl error. Date: Tue Jan 3 20:01:20 2006 Author: pdenno
Index: root/cells-gtk/textview.lisp diff -u root/cells-gtk/textview.lisp:1.5 root/cells-gtk/textview.lisp:1.6 --- root/cells-gtk/textview.lisp:1.5 Sat Oct 8 16:31:24 2005 +++ root/cells-gtk/textview.lisp Tue Jan 3 20:01:20 2006 @@ -71,7 +71,6 @@
(ff-defun-callable :cdecl :void text-view-populate-popup-handler ((widget :pointer-void) (signal :pointer-void) (data :pointer-void)) - (declare (ignorable signal data)) (let ((popup-menu (gtk-adds-text-view-popup-menu widget))) (bwhen (text-view (gtk-object-find widget)) (bwhen (cb (callback-recover text-view :populate-popup))