X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/112ac1d33aa8f9b7f3d2f9542d15431f152b1d35..0b77bad41d2bb901ab5d0f6e68c15b30e8be9e3b:/glib/gparam.lisp diff --git a/glib/gparam.lisp b/glib/gparam.lisp index d706580..7c1ab5e 100644 --- a/glib/gparam.lisp +++ b/glib/gparam.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gparam.lisp,v 1.17 2005-04-23 16:48:51 espen Exp $ +;; $Id: gparam.lisp,v 1.18 2006-02-06 11:56:22 espen Exp $ (in-package "GLIB") @@ -64,10 +64,14 @@ (defun gvalue-free (gvalue &optional (unset-p t)) (defun gvalue-type (gvalue) (type-from-number (sap-ref-32 gvalue 0))) -(defun gvalue-get (gvalue) +(defun gvalue-get (gvalue) (funcall (reader-function (gvalue-type gvalue)) gvalue +gvalue-value-offset+)) +(defun gvalue-weak-get (gvalue) + (funcall (weak-reader-function (gvalue-type gvalue)) + gvalue +gvalue-value-offset+)) + (defun gvalue-set (gvalue value) (funcall (writer-function (gvalue-type gvalue)) value gvalue +gvalue-value-offset+)