From faadad70d9b7d1e6d7ef6447cfd80792dea04016 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 17 May 1990 13:45:47 +0000
Subject: [PATCH] Changed said EVAL-WHEN to be unconditionally LOAD so that
 inline expansions are avaliable to the new compiler.

---
 compiler/globaldb.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 986a0837d..c6c192cf0 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -477,11 +477,12 @@
 	 #x3FF)))
 
 
-(eval-when (compile #-new-compiler load eval)
+(eval-when (compile load eval)
 
 ;;; INFO-CACHE-INIT  --  Internal
 ;;;
 ;;;    Set up the info cache.  This is also called in GLOBALDB-INIT.
+;;;
 (defmacro info-cache-init ()
   `(progn
      (setq *cached-info-environment* nil)
@@ -493,7 +494,7 @@
 
 (info-cache-init)
 
-); Eval-When (Compile Eval)
+); Eval-When (Compile Load Eval)
 
 
 ;;; Whenever we GC, we must blow away the INFO cache, otherwise values might
-- 
GitLab