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

Modified Files: widgets.lisp Log Message: Better error reporting on assert in the def-widget/def-gtk macro. Thanks to Kenny Tilton and Fred Gilham. Date: Sun May 29 23:15:51 2005 Author: pdenno

Index: root/cells-gtk/widgets.lisp diff -u root/cells-gtk/widgets.lisp:1.12 root/cells-gtk/widgets.lisp:1.13 --- root/cells-gtk/widgets.lisp:1.12 Sun Mar 6 18:01:09 2005 +++ root/cells-gtk/widgets.lisp Sun May 29 23:15:51 2005 @@ -182,7 +182,7 @@ ,(intern (string signal-slot) :keyword) new-value) (let ((cb (cdr (assoc ',signal-slot *widget-callbacks*)))) - (assert cb) + (assert cb () "Callback ~a not defined in *widget-callbacks*" ',signal-slot) #+shhtk (trc nil "in def-c-output gtk-signal-connect pcb:" cb ',slot-name (id self)) (gtk-signal-connect (id self)