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