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