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