Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv13168

Modified Files: threading.lisp Log Message: Have segment-descriptor-table-manager use *gc-hooks* to deal with moving of descriptor-table.

Date: Sat Jun 11 01:09:14 2005 Author: ffjeld

Index: movitz/losp/lib/threading.lisp diff -u movitz/losp/lib/threading.lisp:1.7 movitz/losp/lib/threading.lisp:1.8 --- movitz/losp/lib/threading.lisp:1.7 Mon May 9 00:05:13 2005 +++ movitz/losp/lib/threading.lisp Sat Jun 11 01:09:14 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Apr 28 08:30:01 2005 ;;;; -;;;; $Id: threading.lisp,v 1.7 2005/05/08 22:05:13 ffjeld Exp $ +;;;; $Id: threading.lisp,v 1.8 2005/06/10 23:09:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -33,8 +33,11 @@ ((table :reader segment-descriptor-table :initarg :table - :initform (setf (muerte::global-segment-descriptor-table) - (muerte::dump-global-segment-table :entries 64))) + :initform (let ((table (muerte::dump-global-segment-table :entries 64))) + (push (lambda () + (setf (muerte::global-segment-descriptor-table) table)) + *gc-hooks*) + (setf (muerte::global-segment-descriptor-table) table))) (clients :initform (make-array 64)) (range-start