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