From 4a1aae81c8075159fe6415ff47019769acd93a3a Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 9 Jul 2005 01:08:37 +0000
Subject: [PATCH] EVAL-WHEN tests for non-toplevel situations

---
 ansi-tests/eval-when.lsp | 42 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/ansi-tests/eval-when.lsp b/ansi-tests/eval-when.lsp
index f403c512..76583452 100644
--- a/ansi-tests/eval-when.lsp
+++ b/ansi-tests/eval-when.lsp
@@ -63,3 +63,45 @@
 
 ;;; More EVAL-WHEN tests to go here
 
+(deftest eval-when.2
+  (eval-when () :bad)
+  nil)
+
+(deftest eval-when.3
+  (eval-when (:execute))
+  nil)
+
+(deftest eval-when.4
+  (eval-when (:execute) :good)
+  :good)
+
+(deftest eval-when.5
+  (eval-when (:compile-toplevel) :bad)
+  nil)
+
+(deftest eval-when.6
+  (eval-when (:load-toplevel) :bad)
+  nil)
+
+(deftest eval-when.7
+  (eval-when (:compile-toplevel :execute) :good)
+  :good)
+
+(deftest eval-when.8
+  (eval-when (:load-toplevel :execute) :good)
+  :good)
+
+(deftest eval-when.9
+  (eval-when (:load-toplevel :compile-toplevel) :bad)
+  nil)
+
+(deftest eval-when.10
+  (eval-when (:load-toplevel :compile-toplevel :execute) :good)
+  :good)
+
+(deftest eval-when.11
+  (eval-when (:execute) (values 'a 'b 'c 'd))
+  a b c d)
+
+
+
-- 
GitLab