cl-cffi-gtk/gtk/gtk.window.lisp

[qt]

(defun gtk-window-get-position (window)
............
(with-foreign-objects ((x :int) (y :int))
(%gtk-window-get-position window x y)
(values (mem-ref x :int)
(mem-ref y :int))))
------->>
(with-foreign-objects ((x :int) (y :int))
(%gtk-window-get-position window x y)
(values (list (mem-ref x :int)
(mem-ref y :int)))))

(defun gtk-window-get-size (window)
..........
(with-foreign-objects ((width :int) (height :int))
(%gtk-window-get-size window width height)
(values (mem-ref width :int) (mem-ref height :int))))
------->>
(with-foreign-objects ((width :int) (height :int))
(%gtk-window-get-size window width height)
(values (list (mem-ref width :int) (mem-ref height :int)))))