From 36508100346b3159ee3f1fade42a534df8fe15ec Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 16 Feb 2008 16:19:39 +0100
Subject: Add a few locking utility stubs.

darcs-hash:89727f37535b1a2b8360f2e9055952034fd6db9f
---
 Lisp/parameters.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Lisp/parameters.lisp')

diff --git a/Lisp/parameters.lisp b/Lisp/parameters.lisp
index 875adb8..a26908b 100644
--- a/Lisp/parameters.lisp
+++ b/Lisp/parameters.lisp
@@ -20,6 +20,8 @@
 
 (defvar *runtime-initialisation-level* 0)
 
+(defvar *object-locks* (make-hash-table :test 'eql))
+
 (defvar *boolean-return-exceptions* (make-hash-table :test #'equal))
 
 (defvar *skip-retaining* nil)
-- 
cgit v1.2.3