18 |
(unless (packagep p2) |
(unless (packagep p2) |
19 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
20 |
(return p2)) |
(return p2)) |
21 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
22 |
(equal (package-name p2) "TEST2")) |
(equal (package-name p2) "TEST2")) |
23 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
24 |
(ignore-errors (delete-package p2)) |
(ignore-errors (delete-package p2)) |
37 |
(unless (packagep p2) |
(unless (packagep p2) |
38 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
39 |
(return p2)) |
(return p2)) |
40 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
41 |
(equal (package-name p2) "TEST2") |
(equal (package-name p2) "TEST2") |
42 |
(null (set-exclusive-or nicknames |
(null (set-exclusive-or nicknames |
43 |
(package-nicknames p2) |
(package-nicknames p2) |
59 |
(unless (packagep p2) |
(unless (packagep p2) |
60 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
61 |
(return p2)) |
(return p2)) |
62 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
63 |
(equal (package-name p2) "TEST2") |
(equal (package-name p2) "TEST2") |
64 |
(equal |
(equal |
65 |
(sort (copy-list (package-nicknames p2)) |
(sort (copy-list (package-nicknames p2)) |
85 |
(unless (packagep p2) |
(unless (packagep p2) |
86 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
87 |
(return p2)) |
(return p2)) |
88 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
89 |
(equal (package-name p2) "TEST2") |
(equal (package-name p2) "TEST2") |
90 |
(null (set-exclusive-or nicknames |
(null (set-exclusive-or nicknames |
91 |
(package-nicknames p2) |
(package-nicknames p2) |
107 |
(unless (packagep p2) |
(unless (packagep p2) |
108 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
109 |
(return p2)) |
(return p2)) |
110 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
111 |
(equal (package-name p2) "G") |
(equal (package-name p2) "G") |
112 |
(null (set-exclusive-or nicknames |
(null (set-exclusive-or nicknames |
113 |
(package-nicknames p2) |
(package-nicknames p2) |
130 |
(unless (packagep p2) |
(unless (packagep p2) |
131 |
(ignore-errors (delete-package p)) |
(ignore-errors (delete-package p)) |
132 |
(return p2)) |
(return p2)) |
133 |
(unless (and (eq p p2) |
(unless (and (eqt p p2) |
134 |
(equal (package-name p2) "TEST2") |
(equal (package-name p2) "TEST2") |
135 |
(equal |
(equal |
136 |
(sort (copy-list (package-nicknames p2)) |
(sort (copy-list (package-nicknames p2)) |