(format stream
"Signal [#~A] ~A ~A.~A~@[::~A~](~{~A~^, ~})~@[ [~{~A~^, ~}]~]"
(signal-info-id instance)
- (g-type-string (signal-info-return-type instance))
- (g-type-string (signal-info-owner-type instance))
+ (gtype-name (signal-info-return-type instance))
+ (gtype-name (signal-info-owner-type instance))
(signal-info-name instance)
(signal-info-detail instance)
- (mapcar #'g-type-string (signal-info-param-types instance))
+ (mapcar #'gtype-name (signal-info-param-types instance))
(signal-info-flags instance)))))
(defun query-signal-info (signal-id)
signal-info))))
(defun type-signals (type &key include-inherited)
- (unless (= (g-type-numeric type) +g-type-invalid+)
+ (unless (g-type= type +g-type-invalid+)
(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))