Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 4929)
+++ /trunk/ccl/library/lispequ.lisp	(revision 4930)
@@ -69,5 +69,6 @@
   resource.destructor
   resource.initializer
-  resource.pool)
+  resource.pool
+  resource.lock)
 
 (defmacro gvector (type-keyword &rest initial-values)
@@ -90,5 +91,5 @@
 
 (defmacro %cons-resource (constructor &optional destructor initializer)
-  `(%istruct 'resource ,constructor ,destructor ,initializer (%cons-pool)))
+  `(%istruct 'resource ,constructor ,destructor ,initializer (%cons-pool) (make-lock)))