89 |
y) |
y) |
90 |
"edcba") |
"edcba") |
91 |
|
|
92 |
(deftest reverse-error.1 |
;;; Error cases |
93 |
|
|
94 |
|
(deftest reverse.error.1 |
95 |
(catch-type-error (reverse 'a)) |
(catch-type-error (reverse 'a)) |
96 |
type-error) |
type-error) |
97 |
|
|
98 |
(deftest reverse-error.2 |
(deftest reverse.error.2 |
99 |
(catch-type-error (reverse #\a)) |
(catch-type-error (reverse #\a)) |
100 |
type-error) |
type-error) |
101 |
|
|
102 |
(deftest reverse-error.3 |
(deftest reverse.error.3 |
103 |
(catch-type-error (reverse 10)) |
(catch-type-error (reverse 10)) |
104 |
type-error) |
type-error) |
105 |
|
|
106 |
(deftest reverse-error.4 |
(deftest reverse.error.4 |
107 |
(catch-type-error (reverse 0.3)) |
(catch-type-error (reverse 0.3)) |
108 |
type-error) |
type-error) |
109 |
|
|
110 |
(deftest reverse-error.5 |
(deftest reverse.error.5 |
111 |
(catch-type-error (reverse 10/3)) |
(catch-type-error (reverse 10/3)) |
112 |
type-error) |
type-error) |
113 |
|
|
114 |
|
(deftest reverse.error.6 |
115 |
|
(classify-error (reverse)) |
116 |
|
program-error) |
117 |
|
|
118 |
|
(deftest reverse.error.7 |
119 |
|
(classify-error (reverse nil nil)) |
120 |
|
program-error) |
121 |
|
|
122 |
|
|
123 |
|
|
124 |
|
|
125 |
|
|
126 |
|
|