Changeset 7901

Timestamp:

Dec 12, 2007, 12:25:10 PM (17 years ago)

Author:

Gary Byers

Message:

Implement HASH-TABLE-OWNER and CLAIM-HASH-TABLE; the latter probably
isn't ready for prime time yet.

File:

• branches/working-0711/ccl/level-0/l0-hash.lisp (modified) (1 diff)

branches/working-0711/ccl/level-0/l0-hash.lisp

@@ -1718 +1718 @@
   (nhash.read-only hash))
 
+(defun hash-table-owner (hash)
+  (unless (hash-table-p hash)
+    (report-bad-arg hash 'hash-table))
+  (nhash.owner hash))
+
+(defun claim-hash-table (hash &optional steal)
+  (unless (hash-table-p hash)
+    (report-bad-arg hash 'hash-table))
+  (let* ((owner (nhash.owner hash)))
+    (if owner
+      (or (eq owner *current-process*)
+          (when steal
+            (setf (nhash.owner hash) *current-process*)))
+      (progn
+        (write-lock-hash-table hash)
+        (setf (nhash.exclusion-lock hash) nil
+              (nhash.owner hash) *current-process*)
+        t))))
+
+  
+  
 (defun enumerate-hash-keys (hash out)
   (unless (hash-table-p hash)