diff --git a/ansi-tests/packages-09.lsp b/ansi-tests/packages-09.lsp index b79fed6af63dc9a3b8b0a9accd8fadadbd1dd36e..79c2018378214aeb1a8fbe4e9f2bf815edc99dc1 100644 --- a/ansi-tests/packages-09.lsp +++ b/ansi-tests/packages-09.lsp @@ -76,18 +76,15 @@ (ignore-errors (delete-package p))))) t) -;;; This test is screwed up because of something I don't -;;; understand about how to handle continuable errors - (deftest make-package-6 (progn (ignore-errors (delete-package #\X)) - (let ((p (ignore-errors (make-package #\X)))) + (let ((p (make-package #\X))) (prog1 (and (packagep p) (equal (package-name p) "X") (equal (package-nicknames p) nil) - (equal (package-use-list p) nil) + ;; (equal (package-use-list p) nil) (equal (package-used-by-list p) nil)) (ignore-errors (delete-package p))))) t)