Skip to content
Snippets Groups Projects
Commit 4a1aae81 authored by pfdietz's avatar pfdietz
Browse files

EVAL-WHEN tests for non-toplevel situations

parent 4cbb886c
No related branches found
No related tags found
No related merge requests found
...@@ -63,3 +63,45 @@ ...@@ -63,3 +63,45 @@
;;; More EVAL-WHEN tests to go here ;;; 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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment