265 |
t) |
t) |
266 |
|
|
267 |
|
|
268 |
|
(deftest set-pprint-dispatch.error.4 |
269 |
|
(loop for x in *mini-universe* |
270 |
|
unless (or (typep x 'real) |
271 |
|
(eval `(signals-error (let ((table (copy-pprint-dispatch nil))) |
272 |
|
(set-pprint-dispatch t 'identity ',x)) |
273 |
|
error))) |
274 |
|
collect x) |
275 |
|
nil) |
276 |
|
|
277 |
|
(deftest set-pprint-dispatch.error.4-unsafe |
278 |
|
(loop for x in *mini-universe* |
279 |
|
unless (or (typep x 'real) |
280 |
|
(eval `(signals-error (let ((table (copy-pprint-dispatch nil))) |
281 |
|
(declare (optimize (safety 0))) |
282 |
|
(set-pprint-dispatch t 'identity ',x)) |
283 |
|
error))) |
284 |
|
collect x) |
285 |
|
nil) |
286 |
|
|