blob: 97b3da48679ea65f406afd375df9fc0d0d37662b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "../common")
(mtest
(typecase) :error
(typecase nil) nil
(typecase nil a) :error
(typecase 0 (symbol 1)) nil
(typecase 0 (integer 1)) 1
(typecase 0 (integer 1) (integer 2)) 1
(typecase 0 (t 3) (integer 1)) 3)
(mtest
(etypecase) :error
(etypecase nil) :error
(etypecase nil a) :error
(etypecase 0 (string 1)) :error
(etypecase 0 (string 1) (integer 2)) 2
(etypecase 0 (string 1) (t 2)) 2)
|