Changeset 7392 for branches

Timestamp:

Oct 12, 2007, 2:24:25 AM (17 years ago)

Author:

Gary Byers

Message:

So far: move a couple of inlined functions before their first use.

File:

• branches/working-0710/ccl/level-0/l0-hash.lisp (modified) (2 diffs)

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

@@ -569 +569 @@
 
 
-
+(defun lock-hash-table (hash)
+  (let* ((lock (nhash.exclusion-lock hash)))
+    (if lock
+      (write-lock-rwlock lock)
+      (progn (unless (eq (nhash.owner hash) *current-process*)
+               (allowing-deferred-gc (error "Not owner of hash table ~s" hash)))))))
+
+(defun unlock-hash-table (hash)
+  (let* ((lock (nhash.exclusion-lock hash)))
+    (if lock
+      (unlock-rwlock lock))))
 
 
@@ -654 +664 @@
 
 
-(defun lock-hash-table (hash)
-  (let* ((lock (nhash.exclusion-lock hash)))
-    (if lock
-      (write-lock-rwlock lock)
-      (progn (unless (eq (nhash.owner hash) *current-process*)
-               (error "Not owner of hash table ~s" hash))))))
-
-(defun unlock-hash-table (hash)
-  (let* ((lock (nhash.exclusion-lock hash)))
-    (if lock
-      (unlock-rwlock lock))))
+
 
 (defun gethash (key hash &optional default)