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