Skip to content
Snippets Groups Projects
Commit a1b5f359 authored by ram's avatar ram
Browse files

Added #-new-compiler load to eval-when so that macro will be defined in

cross compilation environment.
parent 51bcbcda
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment