From 92f6025c1ad867ef94e153792950a706750d3822 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 17 Aug 1993 22:32:03 +0000 Subject: [PATCH] Add support for :EXECUTE keyword to EVAL-WHEN --- code/eval.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/eval.lisp b/code/eval.lisp index 609b89769..ad7588e6f 100644 --- a/code/eval.lisp +++ b/code/eval.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.22 1993/06/23 19:31:14 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.23 1993/08/17 22:32:03 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -168,7 +168,9 @@ (dolist (x (butlast (rest exp)) (eval (car (last exp)))) (eval x)))) ((eval-when) - (if (and (> args 0) (member 'eval (second exp))) + (if (and (> args 0) + (or (member 'eval (second exp)) + (member :execute (second exp)))) (when (> args 1) (dolist (x (butlast (cddr exp)) (eval (car (last exp)))) (eval x))) -- GitLab