190 |
(def-error-test return-from.5 (block foo (return-from foo nil . 2))) |
(def-error-test return-from.5 (block foo (return-from foo nil . 2))) |
191 |
(def-error-test return-from.6 (block foo (return-from foo nil 3))) |
(def-error-test return-from.6 (block foo (return-from foo nil 3))) |
192 |
|
|
193 |
|
;;; RETURN |
194 |
|
|
195 |
|
(def-error-test return.1 (return . x)) |
196 |
|
(def-error-test return.2 (return nil . x)) |
197 |
|
|
198 |
|
;;; TAGBODY |
199 |
|
|
200 |
|
(def-error-test tagbody.1 (tagbody . x)) |
201 |
|
(def-all-error-test tagbody.2 (typef '(or symbol integer cons)) |
202 |
|
#'(lambda (x) `(tagbody ,x))) |
203 |
|
|
204 |
|
;;; THROW |
205 |
|
|
206 |
|
(def-error-test throw.1 (throw)) |
207 |
|
(def-error-test throw.2 (throw . x)) |
208 |
|
(def-error-test throw.3 (catch 'a (throw 'a))) |
209 |
|
(def-error-test throw.4 (catch 'a (throw 'a . x))) |
210 |
|
(def-error-test throw.5 (catch 'a (throw 'a 1 . x))) |
211 |
|
(def-error-test throw.6 (catch 'a (throw 'a 1 'x))) |
212 |
|
|
213 |
|
;;; UNWIND-PROTECT |
214 |
|
|
215 |
|
(def-error-test unwind-protect.1 (unwind-protect)) |
216 |
|
(def-error-test unwind-protect.2 (unwind-protect . x)) |
217 |
|
(def-error-test unwind-protect.3 (unwind-protect nil . x)) |
218 |
|
|
219 |
|
;;; NOT |
220 |
|
|
221 |
|
(def-error-test not.1 (not . x)) |
222 |
|
(def-error-test not.2 (not nil . x)) |
223 |
|
|
224 |
|
|
225 |
|
;;; EQ |
226 |
|
|
227 |
|
(def-error-test eq.1 (eq . 1)) |
228 |
|
(def-error-test eq.2 (eq 'x . 2)) |
229 |
|
(def-error-test eq.3 (eq :foo 2 . 17)) |
230 |
|
|
231 |
|
;;; EQL |
232 |
|
|
233 |
|
(def-error-test eql.1 (eql . 1)) |
234 |
|
(def-error-test eql.2 (eql 'x . 2)) |
235 |
|
(def-error-test eql.3 (eql :foo 2 . 17)) |
236 |
|
|
237 |
|
;;; EQUAL |
238 |
|
|
239 |
|
(def-error-test equal.1 (equal . 1)) |
240 |
|
(def-error-test equal.2 (equal 'x . 2)) |
241 |
|
(def-error-test equal.3 (equal :foo 2 . 17)) |
242 |
|
|
243 |
|
;;; EQUALP |
244 |
|
|
245 |
|
(def-error-test equalp.1 (equalp . 1)) |
246 |
|
(def-error-test equalp.2 (equalp 'x . 2)) |
247 |
|
(def-error-test equalp.3 (equalp :foo 2 . 17)) |
248 |
|
|
249 |
|
;;; IDENTITY |
250 |
|
|
251 |
|
(def-error-test identity.1 (identity . 0)) |
252 |
|
(def-error-test identity.2 (identity 0 . "foo")) |
253 |
|
|
254 |
|
;;; COMPLEMENT |
255 |
|
|
256 |
|
(def-error-test complement.1 (complement . 1.2)) |
257 |
|
(def-error-test complement.2 (complement #'plusp . #(1 2))) |
258 |
|
(def-error-test complement.3 (complement #'zerop #*110101 . #c(1 2))) |
259 |
|
(def-all-error-test complement.4 'functionp '(complement x)) |
260 |
|
|
261 |
|
;;; CONSTANTLY |
262 |
|
|
263 |
|
(def-error-test constantly.1 (constantly . 1/2)) |
264 |
|
(def-error-test constantly.2 (constantly :foo . 1/2)) |
265 |
|
|
266 |
|
;;; EVERY |
267 |
|
|
268 |
|
(def-error-test every.1 (every . :foo)) |
269 |
|
(def-error-test every.2 (every 'null . (list))) |
270 |
|
(def-error-test every.3 (every (gensym) '(a b c d))) |
271 |
|
|
272 |
|
;;; SOME |
273 |
|
|
274 |
|
(def-error-test some.1 (some . :foo)) |
275 |
|
(def-error-test some.2 (some 'null . (list))) |
276 |
|
(def-error-test some.3 (some (gensym) '(a b c d))) |
277 |
|
|
278 |
|
;;; NOTEVERY |
279 |
|
|
280 |
|
(def-error-test notevery.1 (notevery . :foo)) |
281 |
|
(def-error-test notevery.2 (notevery 'null . (list))) |
282 |
|
(def-error-test notevery.3 (notevery (gensym) '(a b c d))) |
283 |
|
|
284 |
|
;;; NOTANY |
285 |
|
|
286 |
|
(def-error-test notany.1 (notany . :foo)) |
287 |
|
(def-error-test notany.2 (notany 'null . (list))) |
288 |
|
(def-error-test notany.3 (notany (gensym) '(a b c d))) |
289 |
|
|
290 |
|
;;; AND |
291 |
|
|
292 |
|
(def-error-test and.1 (and . #.(make-hash-table))) |
293 |
|
(def-error-test and.2 (and t . :foo)) |
294 |
|
|
295 |
|
;;; COND |
296 |
|
|
297 |
|
(def-error-test cond.1 (cond . 1)) |
298 |
|
(def-error-test cond.2 (cond (t . 2))) |
299 |
|
(def-error-test cond.3 (cond nil)) |
300 |
|
(def-error-test cond.4 (cond (nil) . "foo")) |
301 |
|
|
302 |
|
;;; IF |
303 |
|
|
304 |
|
(def-error-test if.1 (if)) |
305 |
|
(def-error-test if.2 (if . t)) |
306 |
|
(def-error-test if.3 (if t)) |
307 |
|
(def-error-test if.4 (if nil)) |
308 |
|
(def-error-test if.5 (if t . 1)) |
309 |
|
(def-error-test if.6 (if nil . 2)) |
310 |
|
(def-error-test if.7 (if t 1 . 2)) |
311 |
|
(def-error-test if.8 (if nil #\x . #\y)) |
312 |
|
(def-error-test if.9 (if t 1 2 . 3)) |
313 |
|
(def-error-test if.10 (if nil #\x #\y . 1.23d4)) |
314 |
|
(def-error-test if.11 (if t 1 2 3)) |
315 |
|
(def-error-test if.12 (if nil #\x #\y nil nil nil)) |
316 |
|
|
317 |
|
;;; OR |
318 |
|
|
319 |
|
(def-error-test or.1 (or . :foo)) |
320 |
|
(def-error-test or.2 (or nil . :bar)) |
321 |
|
|
322 |
|
;;; WHEN |
323 |
|
|
324 |
|
(def-error-test when.1 (when)) |
325 |
|
(def-error-test when.2 (when . #\$)) |
326 |
|
(def-error-test when.3 (when t . x)) |
327 |
|
(def-error-test when.4 (when t nil . "A")) |
328 |
|
|
329 |
|
;;; UNLESS |
330 |
|
|
331 |
|
(def-error-test unless.1 (unless)) |
332 |
|
(def-error-test unless.2 (unless . #*1011)) |
333 |
|
(def-error-test unless.3 (unless nil . t)) |
334 |
|
(def-error-test unless.4 (unless nil nil . #())) |