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