From 3d7d4597bb30bdd0763fbd867edb67cf9ddee912 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 12 Apr 1994 13:20:58 +0000
Subject: [PATCH] Fix spelling of :compile-toplevel and :load-toplevel in
 eval-when.

---
 compiler/ir1tran.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 41d731b14..011d53f28 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.105 1994/03/05 14:38:35 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.106 1994/04/12 13:20:58 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2219,15 +2219,15 @@
   (when (or (not (listp situations))
 	    (set-difference situations
 			    '(compile load eval
-			      :compile-top-level :load-top-level :execute)))
+			      :compile-toplevel :load-toplevel :execute)))
     (compiler-error "Bad Eval-When situation list: ~S." situations))
 
-  (let* ((do-eval (and (intersection '(compile :compile-top-level) situations)
+  (let* ((do-eval (and (intersection '(compile :compile-toplevel) situations)
 		       (not lisp::*already-evaled-this*)))
 	 (lisp::*already-evaled-this* t))
     (when do-eval
       (eval `(progn ,@body)))
-    (if (or (intersection '(:load-top-level load) situations)
+    (if (or (intersection '(:load-toplevel load) situations)
 	    (and *converting-for-interpreter*
 		 (intersection '(:execute eval) situations)))
 	(funcall fun body)
-- 
GitLab