From a1b5f3593a2961a27d2e35cbc53ac2be5b753bb2 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 16 May 1990 10:57:37 +0000
Subject: [PATCH] Added #-new-compiler load to eval-when so that macro will be
 defined in cross compilation environment.

---
 compiler/globaldb.lisp | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 33500c222..986a0837d 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -463,7 +463,21 @@
 ;;;
 (defvar *cached-info-environment*)
 
-(eval-when (compile eval)
+
+;;; INFO-CACHE-HASH  --  Internal
+;;;
+;;;    Hash function used for INFO cache.
+;;;
+(defmacro info-cache-hash (name type)
+  `(the fixnum
+	(logand
+	 (the fixnum
+	      (logxor (the fixnum (cache-hash-eq ,name))
+		      (the fixnum (ash (the fixnum ,type) 7))))
+	 #x3FF)))
+
+
+(eval-when (compile #-new-compiler load eval)
 
 ;;; INFO-CACHE-INIT  --  Internal
 ;;;
@@ -492,19 +506,6 @@
 (pushnew 'info-cache-gc-hook *after-gc-hooks*)
 
 
-;;; INFO-CACHE-HASH  --  Internal
-;;;
-;;;    Hash function used for INFO cache.
-;;;
-(defmacro info-cache-hash (name type)
-  `(the fixnum
-	(logand
-	 (the fixnum
-	      (logxor (the fixnum (cache-hash-eq ,name))
-		      (the fixnum (ash (the fixnum ,type) 7))))
-	 #x3FF)))
-
-
 ;;; CLEAR-INVALID-INFO-CACHE  --  Internal
 ;;;
 ;;;    If the info cache is invalid, then clear it.
-- 
GitLab