From d0f470348b725d02d439752c1a0c10f6a904006c Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 1 Jun 1990 13:46:04 +0000
Subject: [PATCH] Set *TYPE-SYSTEM-INITIALIZED* so that we know when we can
 start using the type system

---
 compiler/loadcom.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/loadcom.lisp b/compiler/loadcom.lisp
index 25101d183..4da15e56e 100644
--- a/compiler/loadcom.lisp
+++ b/compiler/loadcom.lisp
@@ -33,6 +33,7 @@
 (load "c:type" :verbose t)
 (load "c:vm-type" :verbose t)
 (load "c:type-init" :verbose t)
+(setq *type-system-initialized* t)
 (load "c:sset" :verbose t)
 (load "c:node" :verbose t)
 (load "c:alloc" :verbose t)
-- 
GitLab