From c6dd9941deeb4119db9d6b2cecb39ac5fe2f87fa Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Sun, 11 Feb 2024 15:11:21 +0100
Subject: [PATCH] Use the new obarray type for the initial obarray

This can improve performance a lot, especially after the obarray has
been fed many symbols.

* src/lread.c (OBARRAY_SIZE): Remove.
(load_path_check): Create an obarray object instead of a vector.

(cherry picked from commit 3ea77c735de975ebda707e0e1e8bb5e0adad2bf5)
---
 src/lread.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/lread.c b/src/lread.c
index c4a34c5d73f..49683d02401 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -5446,13 +5446,10 @@ DEFUN ("internal--obarray-buckets",
   return Fnreverse (ret);
 }
 
-#define OBARRAY_SIZE 15121
-
 void
 init_obarray_once (void)
 {
-  /* FIXME: use PVEC_OBARRAY */
-  Vobarray = make_vector (OBARRAY_SIZE, make_fixnum (0));
+  Vobarray = make_obarray (15);
   initial_obarray = Vobarray;
   staticpro (&initial_obarray);
 
-- 
2.39.5