14 |
(deftest packagep-1 |
(deftest packagep-1 |
15 |
(loop |
(loop |
16 |
for x in *universe* count |
for x in *universe* count |
17 |
(unless (eq (not (not (packagep x))) |
(unless (eqt (not (packagep x)) |
18 |
(not (not (typep x 'package)))) |
(not (typep x 'package))) |
19 |
(format t |
(format t |
20 |
"(packagep ~S) = ~S, (typep x 'package) = ~S~%" |
"(packagep ~S) = ~S, (typep x 'package) = ~S~%" |
21 |
x (packagep x) x (typep x 'package)) |
x (packagep x) x (typep x 'package)) |
25 |
;; *package* is always a package |
;; *package* is always a package |
26 |
|
|
27 |
(deftest packagep-2 |
(deftest packagep-2 |
28 |
(not (not (packagep *package*))) |
(not (packagep *package*)) |
29 |
t) |
nil) |
30 |
|
|
31 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
32 |
;;; package-error |
;;; package-error |
33 |
|
|
34 |
(deftest package-error-1 |
(deftest package-error-1 |
35 |
(not (not |
(not |
36 |
(typep (make-condition 'package-error :package "CL") |
(typep (make-condition 'package-error :package "CL") |
37 |
'package-error))) |
'package-error)) |
38 |
t) |
nil) |
39 |
|
|
40 |
(deftest package-error-2 |
(deftest package-error-2 |
41 |
(not (not |
(not |
42 |
(typep (make-condition 'package-error |
(typep (make-condition 'package-error |
43 |
:package (find-package "CL")) |
:package (find-package "CL")) |
44 |
'package-error))) |
'package-error)) |
45 |
t) |
nil) |
46 |
|
|
47 |
(deftest package-error-3 |
(deftest package-error-3 |
48 |
(subtypep 'package-error 'error) |
(subtypep* 'package-error 'error) |
49 |
t t) |
t t) |
50 |
|
|
51 |
(deftest package-error-4 |
(deftest package-error-4 |
52 |
(not (not |
(not |
53 |
(typep (make-condition 'package-error |
(typep (make-condition 'package-error |
54 |
:package (find-package '#:|CL|)) |
:package (find-package '#:|CL|)) |
55 |
'package-error))) |
'package-error)) |
56 |
t) |
nil) |
57 |
|
|
58 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
59 |
;;; package-error-package |
;;; package-error-package |
60 |
|
|
61 |
(deftest package-error-package-1 |
(deftest package-error-package-1 |
62 |
(handler-case |
(handler-case |
63 |
(eq (find-package (package-error-package |
(eqt (find-package (package-error-package |
64 |
(make-condition 'package-error |
(make-condition 'package-error |
65 |
:package "CL"))) |
:package "CL"))) |
66 |
(find-package "CL")) |
(find-package "CL")) |
67 |
(error (c) c)) |
(error (c) c)) |
68 |
t) |
t) |
69 |
|
|
70 |
(deftest package-error-package-2 |
(deftest package-error-package-2 |
71 |
(handler-case |
(handler-case |
72 |
(eq (find-package (package-error-package |
(eqt (find-package (package-error-package |
73 |
(make-condition 'package-error |
(make-condition 'package-error |
74 |
:package (find-package "CL")))) |
:package (find-package "CL")))) |
75 |
(find-package "CL")) |
(find-package "CL")) |
78 |
|
|
79 |
(deftest package-error-package-3 |
(deftest package-error-package-3 |
80 |
(handler-case |
(handler-case |
81 |
(eq (find-package (package-error-package |
(eqt (find-package (package-error-package |
82 |
(make-condition 'package-error |
(make-condition 'package-error |
83 |
:package '#:|CL|))) |
:package '#:|CL|))) |
84 |
(find-package "CL")) |
(find-package "CL")) |
87 |
|
|
88 |
(deftest package-error-package-4 |
(deftest package-error-package-4 |
89 |
(handler-case |
(handler-case |
90 |
(eq (find-package (package-error-package |
(eqt (find-package (package-error-package |
91 |
(make-condition 'package-error |
(make-condition 'package-error |
92 |
:package #\A))) |
:package #\A))) |
93 |
(find-package "A")) |
(find-package "A")) |