Changeset 4930

Timestamp:

Jul 29, 2006, 5:27:18 AM (18 years ago)

Author:

Gary Byers

Message:

Resources aren't thread-private, need locks.

File:

• trunk/ccl/library/lispequ.lisp (modified) (2 diffs)

trunk/ccl/library/lispequ.lisp

@@ -69 +69 @@
   resource.destructor
   resource.initializer
-  resource.pool)
+  resource.pool
+  resource.lock)
 
 (defmacro gvector (type-keyword &rest initial-values)
@@ -90 +91 @@
 
 (defmacro %cons-resource (constructor &optional destructor initializer)
-  `(%istruct 'resource ,constructor ,destructor ,initializer (%cons-pool)))
+  `(%istruct 'resource ,constructor ,destructor ,initializer (%cons-pool) (make-lock)))