(let ((signals (with-foreign-object (n-ids :uint)
(with-unwind (ids (g-signal-list-ids type n-ids) g-free)
(iter (for i from 0 below (mem-ref n-ids :uint))
(let ((signals (with-foreign-object (n-ids :uint)
(with-unwind (ids (g-signal-list-ids type n-ids) g-free)
(iter (for i from 0 below (mem-ref n-ids :uint))