From cff61d816a0776142d2c3c3b6fbc2841bafe06c9 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Tue, 17 Mar 2009 02:42:39 +0300 Subject: [PATCH] check at get-stable-pointer-value --- glib/gobject.foreign.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/glib/gobject.foreign.lisp b/glib/gobject.foreign.lisp index ce6d42f..0738cdc 100644 --- a/glib/gobject.foreign.lisp +++ b/glib/gobject.foreign.lisp @@ -39,7 +39,8 @@ (setf (aref *registered-stable-pointers* (pointer-address stable-pointer)) nil)) (defun get-stable-pointer-value (stable-pointer) - (aref *registered-stable-pointers* (pointer-address stable-pointer))) + (when (<= 0 (pointer-address stable-pointer) (length *registered-stable-pointers*)) + (aref *registered-stable-pointers* (pointer-address stable-pointer)))) (defun find-fresh-id () (or (position nil *registered-stable-pointers*) -- 1.7.10.4