Changeset 13201


Ignore:
Timestamp:
Nov 13, 2009, 4:36:26 PM (10 years ago)
Author:
gz
Message:

Make %source-files% not use a lock-free hash table, tweak some of the other parameters as well

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r13067 r13201  
    4747;; This used to be weak, but the keys are symbols-with-definitions, so why bother.
    4848;; Set a high rehash threshold because space matters more than speed here.
     49;; Do not use lock-free hash tables, because they optimize reads at the expense of
     50;; writes/rehashes.  Writes/rehashes affect file-compilation speed, which matters.
    4951(defvar %source-files% (make-hash-table :test #'eq
    50                                         :size 13000
    51                                         :rehash-threshold .95))
     52                                        :size 14000
     53                                        :rehash-size 1.8 ;; compensate for high threshold
     54                                        :rehash-threshold .95
     55                                        :lock-free nil))
     56
    5257
    5358
Note: See TracChangeset for help on using the changeset viewer.