diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp index 986a0837db7f84638e98028a021ed967c440c6ac..c6c192cf046b13e41572e185d6d4cf6e0fa734ca 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