Changeset 7392


Ignore:
Timestamp:
Oct 12, 2007, 9:24:25 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/l0-hash.lisp

    r6918 r7392  
    569569
    570570
    571 
     571(defun lock-hash-table (hash)
     572  (let* ((lock (nhash.exclusion-lock hash)))
     573    (if lock
     574      (write-lock-rwlock lock)
     575      (progn (unless (eq (nhash.owner hash) *current-process*)
     576               (allowing-deferred-gc (error "Not owner of hash table ~s" hash)))))))
     577
     578(defun unlock-hash-table (hash)
     579  (let* ((lock (nhash.exclusion-lock hash)))
     580    (if lock
     581      (unlock-rwlock lock))))
    572582
    573583
     
    654664
    655665
    656 (defun lock-hash-table (hash)
    657   (let* ((lock (nhash.exclusion-lock hash)))
    658     (if lock
    659       (write-lock-rwlock lock)
    660       (progn (unless (eq (nhash.owner hash) *current-process*)
    661                (error "Not owner of hash table ~s" hash))))))
    662 
    663 (defun unlock-hash-table (hash)
    664   (let* ((lock (nhash.exclusion-lock hash)))
    665     (if lock
    666       (unlock-rwlock lock))))
     666
    667667
    668668(defun gethash (key hash &optional default)
Note: See TracChangeset for help on using the changeset viewer.