From 44f47f3db97e21486797ffddc8e88422105fa5e4 Mon Sep 17 00:00:00 2001 From: espen Date: Sun, 19 Feb 2006 19:27:32 +0000 Subject: [PATCH] Added code to re-register sub-classed gobject classes when initializing a saved core file --- glib/gtype.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/glib/gtype.lisp b/glib/gtype.lisp index 88fddcc..012925b 100644 --- a/glib/gtype.lisp +++ b/glib/gtype.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: gtype.lisp,v 1.44 2006-02-19 19:23:23 espen Exp $ +;; $Id: gtype.lisp,v 1.45 2006-02-19 19:27:32 espen Exp $ (in-package "GLIB") @@ -107,6 +107,7 @@ (defvar *registered-types* ()) (defvar *registered-type-aliases* ()) +(defvar *registered-static-types* ()) (defvar *lisp-type-to-type-number* (make-hash-table)) (defvar *type-number-to-lisp-type* (make-hash-table)) @@ -270,9 +271,10 @@ parent-number (or foreign-name (default-alien-type-name type)) (make-instance 'type-info :class-size class-size :instance-size instance-size)))) - (setf (gethash type *lisp-type-to-type-number*) type-number) - (setf (gethash type-number *type-number-to-lisp-type*) type) - type-number)))) + (pushnew (list type parent foreign-name) *registered-static-types* :key #'car) + (setf (gethash type *lisp-type-to-type-number*) type-number) + (setf (gethash type-number *type-number-to-lisp-type*) type) + type-number)))) -- 2.11.0