71 |
nil) |
nil) |
72 |
|
|
73 |
(deftest some.15 |
(deftest some.15 |
74 |
|
(some 'null '(1 2 3 4)) |
75 |
|
nil) |
76 |
|
|
77 |
|
(deftest some.16 |
78 |
|
(not (some 'null '(1 2 3 nil 5))) |
79 |
|
nil) |
80 |
|
|
81 |
|
|
82 |
|
(deftest some.error.1 |
83 |
(classify-error (some 1 '(a b c))) |
(classify-error (some 1 '(a b c))) |
84 |
type-error) |
type-error) |
85 |
|
|
86 |
(deftest some.16 |
(deftest some.error.2 |
87 |
(classify-error (some #\a '(a b c))) |
(classify-error (some #\a '(a b c))) |
88 |
type-error) |
type-error) |
89 |
|
|
90 |
(deftest some.17 |
(deftest some.error.3 |
91 |
(classify-error (some #() '(a b c))) |
(classify-error (some #() '(a b c))) |
92 |
type-error) |
type-error) |
93 |
|
|
94 |
(deftest some.18 |
(deftest some.error.4 |
|
(some 'null '(1 2 3 4)) |
|
|
nil) |
|
|
|
|
|
(deftest some.19 |
|
|
(not (some 'null '(1 2 3 nil 5))) |
|
|
nil) |
|
|
|
|
|
(deftest some.20 |
|
95 |
(classify-error (some #'null 'a)) |
(classify-error (some #'null 'a)) |
96 |
type-error) |
type-error) |
97 |
|
|
98 |
(deftest some.21 |
(deftest some.error.5 |
99 |
(classify-error (some #'null 100)) |
(classify-error (some #'null 100)) |
100 |
type-error) |
type-error) |
101 |
|
|
102 |
(deftest some.22 |
(deftest some.error.6 |
103 |
(classify-error (some #'null 'a)) |
(classify-error (some #'null 'a)) |
104 |
type-error) |
type-error) |
105 |
|
|
106 |
(deftest some.23 |
(deftest some.error.7 |
107 |
(classify-error (some #'eq () 'a)) |
(classify-error (some #'eq () 'a)) |
108 |
type-error) |
type-error) |
109 |
|
|
110 |
|
(deftest some.error.8 |
111 |
|
(classify-error (some)) |
112 |
|
program-error) |
113 |
|
|
114 |
|
(deftest some.error.9 |
115 |
|
(classify-error (some #'null)) |
116 |
|
program-error) |
117 |
|
|