Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo


Diff of /src/code/hash-table.lisp [a97406] .. [71bc8b] Maximize Restore

  Switch to side-by-side view

--- a/src/code/hash-table.lisp
+++ b/src/code/hash-table.lisp
@@ -144,6 +144,10 @@
   ;; Needless to say, this also excludes some internal bits, but
   ;; getting there is too much detail when "unspecified" says what
   ;; is important -- unpredictable, but harmless.
+  `(sb!thread::with-recursive-spinlock ((hash-table-spinlock ,hash-table))
+     ,@body))
+(defmacro-mundanely with-locked-system-table ((hash-table) &body body)
        ((hash-table-spinlock ,hash-table))