- do (destructuring-bind (handler-id name callback &key after object) signal
- (signal-connect widget name callback :after after :object (widget-find object toplevels))))
+ do (destructuring-bind (name callback &key after object) signal
+ (signal-connect widget name callback :after after
+ :object (if (eq object t)
+ widget
+ (widget-find object toplevels)))))