scratch/pkg 07fa5b37cfe: Make global obarray a fake obarray

[Gerd Moellmann]

branch: scratch/pkg
commit 07fa5b37cfe218c5540f2f46cc8882ccf45853bf
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Make global obarray a fake obarray
    
    * src/lread.c (init_obarray_once): Make obarray a vector containing
    the emacs package.
---
 src/lread.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lread.c b/src/lread.c
index aafeb601075..fce10534407 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -5097,7 +5097,8 @@ OBARRAY defaults to the value of `obarray'.  */)
 void
 init_obarray_once (void)
 {
-  Vobarray = Vemacs_package;
+  Vobarray = make_vector (1, make_fixnum (0));
+  Faset (Vobarray, make_fixnum (0), Vemacs_package);
 
   DEFSYM (Qunbound, "unbound");