[movitz-cvs] CVS update: movitz/losp/lib/threading.lisp

[Frode Vatvedt Fjeld]

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 at 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