diff --git a/ansi-tests/in-package.lsp b/ansi-tests/in-package.lsp index 079f5f5f0cdb8a49ab448cf01bc5c0b689181c5d..52fc375b2a7a8549069aa38bfcbf04f1cab4dab9 100644 --- a/ansi-tests/in-package.lsp +++ b/ansi-tests/in-package.lsp @@ -11,29 +11,37 @@ (deftest in-package.1 (let ((*package* *package*)) - (let ((p2 (in-package "A"))) - (and (eqt p2 (find-package "A")) + (safely-delete-package "H") + (make-package "H" :use ()) + (let ((p2 (in-package "H"))) + (and (eqt p2 (find-package "H")) (eqt *package* p2)))) t) (deftest in-package.2 (let ((*package* *package*)) - (let ((p2 (in-package |A|))) - (and (eqt p2 (find-package "A")) + (safely-delete-package "H") + (make-package "H" :use ()) + (let ((p2 (in-package |H|))) + (and (eqt p2 (find-package "H")) (eqt *package* p2)))) t) (deftest in-package.3 (let ((*package* *package*)) - (let ((p2 (in-package :|A|))) - (and (eqt p2 (find-package "A")) + (safely-delete-package "H") + (make-package "H" :use ()) + (let ((p2 (in-package :|H|))) + (and (eqt p2 (find-package "H")) (eqt *package* p2)))) t) (deftest in-package.4 (let ((*package* *package*)) - (let ((p2 (in-package #\A))) - (and (eqt p2 (find-package "A")) + (safely-delete-package "H") + (make-package "H" :use ()) + (let ((p2 (in-package #\H))) + (and (eqt p2 (find-package "H")) (eqt *package* p2)))) t)