103 |
(eval-when (:execute) (values 'a 'b 'c 'd)) |
(eval-when (:execute) (values 'a 'b 'c 'd)) |
104 |
a b c d) |
a b c d) |
105 |
|
|
106 |
|
(deftest eval-when.12 |
107 |
|
(let ((x :good)) |
108 |
|
(values (eval-when (:load-toplevel) (setq x :bad)) x)) |
109 |
|
nil :good) |
110 |
|
|
111 |
|
(deftest eval-when.13 |
112 |
|
(let ((x :good)) |
113 |
|
(values (eval-when (:compile-toplevel) (setq x :bad)) x)) |
114 |
|
nil :good) |
115 |
|
|
116 |
|
(deftest eval-when.14 |
117 |
|
(let ((x :bad)) |
118 |
|
(values (eval-when (:execute) (setq x :good)) x)) |
119 |
|
:good :good) |
120 |
|
|
121 |
|
(deftest eval-when.15 |
122 |
|
(let ((x :good)) |
123 |
|
(values (eval-when (load) (setq x :bad)) x)) |
124 |
|
nil :good) |
125 |
|
|
126 |
|
(deftest eval-when.16 |
127 |
|
(let ((x :good)) |
128 |
|
(values (eval-when (compile) (setq x :bad)) x)) |
129 |
|
nil :good) |
130 |
|
|
131 |
|
(deftest eval-when.17 |
132 |
|
(let ((x :bad)) |
133 |
|
(values (eval-when (eval) (setq x :good)) x)) |
134 |
|
:good :good) |
135 |
|
|