Changeset 6028

Timestamp:

Mar 12, 2007, 3:59:45 AM (18 years ago)

Author:

Gary Byers

Message:

class-wrapper-random-state: use encapsulation, and a lock.

File:

• trunk/ccl/level-1/l1-clos-boot.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-clos-boot.lisp

@@ -560 +560 @@
            spec)))
 
-(defglobal *class-wrapper-random-state* (make-random-state))
-
-(defun new-class-wrapper-hash-index ()
-  ;; mustn't be 0
-  (the fixnum (1+ (the fixnum (random target::target-most-positive-fixnum *class-wrapper-random-state*)))))
+(let* ((class-wrapper-random-state (make-random-state))
+       (class-wrapper-random-state-lock (make-lock)))
+
+  (defun  new-class-wrapper-hash-index ()
+    ;; mustn't be 0
+    (with-lock-grabbed (class-wrapper-random-state-lock)
+      (the fixnum (1+ (the fixnum (random target::target-most-positive-fixnum class-wrapper-random-state)))))))
+
 
 (defun %inner-method-function (method)