76 |
(ignore-errors (delete-package p))))) |
(ignore-errors (delete-package p))))) |
77 |
t) |
t) |
78 |
|
|
|
;;; This test is screwed up because of something I don't |
|
|
;;; understand about how to handle continuable errors |
|
|
|
|
79 |
(deftest make-package-6 |
(deftest make-package-6 |
80 |
(progn |
(progn |
81 |
(ignore-errors (delete-package #\X)) |
(ignore-errors (delete-package #\X)) |
82 |
(let ((p (ignore-errors (make-package #\X)))) |
(let ((p (make-package #\X))) |
83 |
(prog1 |
(prog1 |
84 |
(and (packagep p) |
(and (packagep p) |
85 |
(equal (package-name p) "X") |
(equal (package-name p) "X") |
86 |
(equal (package-nicknames p) nil) |
(equal (package-nicknames p) nil) |
87 |
(equal (package-use-list p) nil) |
;; (equal (package-use-list p) nil) |
88 |
(equal (package-used-by-list p) nil)) |
(equal (package-used-by-list p) nil)) |
89 |
(ignore-errors (delete-package p))))) |
(ignore-errors (delete-package p))))) |
90 |
t) |
t) |