[movitz-cvs] CVS update: movitz/losp/muerte/variables.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	variables.lisp 
Log Message:
Define a *gc-hooks* variable, a list of functions to be called after GC.

Date: Sat Jun 11 01:05:50 2005
Author: ffjeld

Index: movitz/losp/muerte/variables.lisp
diff -u movitz/losp/muerte/variables.lisp:1.8 movitz/losp/muerte/variables.lisp:1.9
--- movitz/losp/muerte/variables.lisp:1.8	Wed Sep 15 12:22:59 2004
+++ movitz/losp/muerte/variables.lisp	Sat Jun 11 01:05:50 2005
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 2003-2004, 
+;;;;    Copyright (C) 2003-2005, 
 ;;;;    Department of Computer Science, University of Tromso, Norway.
 ;;;; 
 ;;;;    For distribution policy, see the accompanying file COPYING.
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov  5 21:53:34 2003
 ;;;;                
-;;;; $Id: variables.lisp,v 1.8 2004/09/15 10:22:59 ffjeld Exp $
+;;;; $Id: variables.lisp,v 1.9 2005/06/10 23:05:50 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -42,5 +42,7 @@
 (defvar *multiboot-data* nil)
 
 (defvar internal-time-units-per-second)
+
+(defvar *gc-hooks* nil)
 
 (declaim (special *build-number*))