X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.foreign.lisp;h=0738cdcf9438591bb8d0e309f16b4de4b2eda5b2;hb=e9622209ae8a02f82c2813ea7d358d711e1ba2d0;hp=ce6d42f3bc6382f27e3cba1f5eedf2d751ab6a95;hpb=c2c72d4bf4369bd02dc4491808a7ed59177f770e;p=cl-gtk2.git

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*)