267 |
(handler-case |
(handler-case |
268 |
(make-package "A") |
(make-package "A") |
269 |
(error (c) |
(error (c) |
270 |
(if (member 'abort (mapcar #'restart-name (compute-restarts c)) |
(if (position 'abort (compute-restarts c) |
271 |
:test (complement #'eq)) |
:key #'restart-name :test-not #'eq) |
272 |
'success |
'success |
273 |
'failure))) |
'failure))) |
274 |
success) |
success) |
277 |
(handler-case |
(handler-case |
278 |
(make-package "Q") |
(make-package "Q") |
279 |
(error (c) |
(error (c) |
280 |
(if (member 'abort (mapcar #'restart-name (compute-restarts c)) |
(if (position 'abort (compute-restarts c) |
281 |
:test (complement #'eq)) |
:key #'restart-name :test-not #'eq) |
282 |
'success |
'success |
283 |
'failure))) |
'failure))) |
284 |
success) |
success) |
288 |
(progn (ignore-errors (delete-package "TEST1")) |
(progn (ignore-errors (delete-package "TEST1")) |
289 |
(make-package "TEST1" :nicknames '("A"))) |
(make-package "TEST1" :nicknames '("A"))) |
290 |
(error (c) |
(error (c) |
291 |
(if (member 'abort (mapcar #'restart-name (compute-restarts c)) |
(if (position 'abort (compute-restarts c) |
292 |
:test (complement #'eq)) |
:key #'restart-name :test-not #'eq) |
293 |
'success |
'success |
294 |
'failure))) |
'failure))) |
295 |
success) |
success) |
299 |
(progn (ignore-errors (delete-package "TEST1")) |
(progn (ignore-errors (delete-package "TEST1")) |
300 |
(make-package "TEST1" :nicknames '("Q"))) |
(make-package "TEST1" :nicknames '("Q"))) |
301 |
(error (c) |
(error (c) |
302 |
(if (member 'abort (mapcar #'restart-name (compute-restarts c)) |
(if (position 'abort (compute-restarts c) |
303 |
:test (complement #'eq)) |
:key #'restart-name :test-not #'eq) |
304 |
'success |
'success |
305 |
'failure))) |
'failure))) |
306 |
success) |
success) |