Commit 4a1aae81 authored by pfdietz's avatar pfdietz

EVAL-WHEN tests for non-toplevel situations

parent 4cbb886c
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment