82 |
;; Delete the P2 package, catching the continuable |
;; Delete the P2 package, catching the continuable |
83 |
;; error and deleting the package |
;; error and deleting the package |
84 |
|
|
85 |
(catch 'continue-failed |
(handler-bind ((package-error |
86 |
(let ((*debugger-hook* #'catch-continue-debugger-hook) |
#'(lambda (c) |
87 |
(*catch-error-type* 'package-error)) |
(let ((r (find-restart 'continue c))) |
88 |
(declare (special *debugger-hook* *catch-error-type*)) |
(and r (invoke-restart r)))))) |
89 |
(delete-package P2))) |
(delete-package P2)) |
90 |
|
|
91 |
(unless (and (equal (package-name P1) "P1") |
(unless (and (equal (package-name P1) "P1") |
92 |
(null (package-name P2)) |
(null (package-name P2)) |
131 |
;;; some sort of interaction with the test harness. |
;;; some sort of interaction with the test harness. |
132 |
|
|
133 |
(deftest delete-package-6 |
(deftest delete-package-6 |
134 |
(progn |
(progn |
135 |
(when (find-package "TEST-20") (delete-package "TEST-20")) |
(when (find-package "TEST-20") (delete-package "TEST-20")) |
136 |
(catch 'continue-failed |
(handler-bind ((package-error |
137 |
(let ((*debugger-hook* #'catch-continue-debugger-hook) |
#'(lambda (c) |
138 |
(*catch-error-type* 'package-error)) |
(let ((r (find-restart 'continue c))) |
139 |
(declare (special *debugger-hook* *catch-error-type*)) |
(and r (invoke-restart r)))))) |
140 |
(and (not (delete-package "TEST-20")) |
(and (not (delete-package "TEST-20")) |
141 |
t)))) |
t))) |
142 |
t) |
t) |
143 |
|
|