check at get-stable-pointer-value

[cl-gtk2.git] / glib / gobject.foreign.lisp

diff --git a/glib/gobject.foreign.lisp b/glib/gobject.foreign.lisp
index ce6d42f..0738cdc 100644 (file)
--- 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*)