59 |
;; |
;; |
60 |
;; The next test had the same problem. |
;; The next test had the same problem. |
61 |
|
|
62 |
|
;;; PFD 10/14/02 -- These tests are broken again. I suspect |
63 |
|
;;; some sort of interaction with the test harness. |
64 |
|
|
65 |
(deftest delete-package-5 |
(deftest delete-package-5 |
66 |
(prog (P1 S1 P2 S2 P3) |
(prog (P1 S1 P2 S2 P3) |
67 |
(ignore-errors (delete-package "P3")) |
(ignore-errors (delete-package "P3")) |
127 |
;; package-error (same comments for delete-package-5 apply |
;; package-error (same comments for delete-package-5 apply |
128 |
;; here as well) |
;; here as well) |
129 |
|
|
130 |
|
;;; PFD 10/14/02 -- These tests are broken again. I suspect |
131 |
|
;;; 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")) |