Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (10 sloc) 0.505 kb
(in-package #:vivace-graph-v2)
(defun acquire-hash-table-lock (hash-table)
(if (eq sb-thread:*current-thread*
(sb-thread:spinlock-value (sb-impl:hash-table-spinlock hash-table)))
t
(sb-thread:my-get-spinlock (sb-impl:hash-table-spinlock hash-table))))
(defun release-hash-table-lock (hash-table)
(if (eq sb-thread:*current-thread*
(sb-thread:spinlock-value (sb-impl:hash-table-spinlock hash-table)))
(sb-thread:release-spinlock (sb-impl:hash-table-spinlock hash-table))))
Jump to Line
Something went wrong with that request. Please try again.