87 |
"edcba") |
"edcba") |
88 |
|
|
89 |
(deftest nreverse.error.1 |
(deftest nreverse.error.1 |
90 |
(catch-type-error (nreverse 'a)) |
(classify-error (nreverse 'a)) |
91 |
type-error) |
type-error) |
92 |
|
|
93 |
(deftest nreverse.error.2 |
(deftest nreverse.error.2 |
94 |
(catch-type-error (nreverse #\a)) |
(classify-error (nreverse #\a)) |
95 |
type-error) |
type-error) |
96 |
|
|
97 |
(deftest nreverse.error.3 |
(deftest nreverse.error.3 |
98 |
(catch-type-error (nreverse 10)) |
(classify-error (nreverse 10)) |
99 |
type-error) |
type-error) |
100 |
|
|
101 |
(deftest nreverse.error.4 |
(deftest nreverse.error.4 |
102 |
(catch-type-error (nreverse 0.3)) |
(classify-error (nreverse 0.3)) |
103 |
type-error) |
type-error) |
104 |
|
|
105 |
(deftest nreverse.error.5 |
(deftest nreverse.error.5 |
106 |
(catch-type-error (nreverse 10/3)) |
(classify-error (nreverse 10/3)) |
107 |
type-error) |
type-error) |
108 |
|
|
109 |
(deftest nreverse.error.6 |
(deftest nreverse.error.6 |
114 |
(classify-error (nreverse nil nil)) |
(classify-error (nreverse nil nil)) |
115 |
program-error) |
program-error) |
116 |
|
|
117 |
|
(deftest nreverse.error.8 |
118 |
|
(classify-error (locally (nreverse 'a) t)) |
119 |
|
type-error) |