From 0061060b3cfcb8bf5a5917de93b555fbee12169d Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 15 Oct 2002 12:41:24 +0000 Subject: [PATCH] Fixed the actual problem with make-package-6. --- ansi-tests/packages-09.lsp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/ansi-tests/packages-09.lsp b/ansi-tests/packages-09.lsp index b79fed6a..79c20183 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) -- GitLab