mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

find-class: make class-name access thread safe

Browse source
This commit is contained in:
Daniel Kochmanski 2017-04-29 09:13:40 +02:00
parent 2c5f0028c8
commit dd8ca94746
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/main.d
View file

@ -744,9 +744,12 @@ cl_boot(int argc, char **argv)
* Set up infrastructure for CLOS.
*/
ECL_SET(@'si::*class-name-hash-table*',
cl__make_hash_table(@'eq', ecl_make_fixnum(1024), /* size */
cl_core.rehash_size,
cl_core.rehash_threshold));
cl_make_hash_table(10,
@':test', @'eq',
@':size', ecl_make_fixnum(1024),
@':rehash_size', cl_core.rehash_size,
@':rehash_threshold', cl_core.rehash_threshold,
@':synchronized', ECL_T));
/*
* Features.