From ad5dd894d40c14e95c4c713be34d25ad7559bd44 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 19 Feb 1990 15:49:53 +0000
Subject: [PATCH] Similarly disabled all the other EVAL-WHEN COMPILEs when
 under the new compiler.

---
 compiler/macros.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index eba6a2765..ca793e2f3 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -55,7 +55,7 @@
 
 (proclaim '(special *current-cookie* *default-cookie*))
 
-(eval-when (compile load eval)
+(eval-when (#-new-compiler compile load eval)
 (defconstant policy-parameter-slots
   '((speed . cookie-speed) (space . cookie-space) (safety . cookie-safety)
     (cspeed . cookie-cspeed) (brevity . cookie-brevity)
@@ -115,7 +115,7 @@
 
 ;;;; Source-hacking defining forms:
 
-(eval-when (compile load eval)
+(eval-when (#-new-compiler compile load eval)
 
 ;;; Symbolicate  --  Interface
 ;;;
@@ -237,7 +237,7 @@
 ;;; lambda-list.
 
 
-(eval-when (compile load eval)
+(eval-when (#-new-compiler compile load eval)
 
 ;;; Parse-Lambda-List  --  Interface
 ;;;
@@ -907,7 +907,7 @@
 
 (deftype attributes () 'fixnum)
 
-(eval-when (compile load eval)
+(eval-when (#-new-compiler compile load eval)
 ;;; Compute-Attribute-Mask  --  Internal
 ;;;
 ;;;    Given a list of attribute names and an alist that translates them to
@@ -990,7 +990,7 @@
 
 ;;;; The Event statistics/trace utility:
 
-(eval-when (compile load eval)
+(eval-when (#-new-compiler compile load eval)
 
 (defstruct event-info
   ;;
-- 
GitLab