6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
(declaim (optimize (safety 3))) |
(declaim (optimize (safety 3))) |
8 |
|
|
9 |
(ignore-errors |
(report-and-ignore-errors |
10 |
(defpackage "A" |
(defpackage "A" |
11 |
(:use) |
(:use) |
12 |
(:nicknames "Q") |
(:nicknames "Q") |
13 |
(:export "FOO"))) |
(:export "FOO"))) |
14 |
|
|
15 |
(ignore-errors |
(report-and-ignore-errors |
16 |
(defpackage "B" |
(defpackage "B" |
17 |
(:use "A") |
(:use "A") |
18 |
(:export "BAR"))) |
(:export "BAR"))) |
19 |
|
|
20 |
(ignore-errors |
(report-and-ignore-errors |
21 |
(defpackage "DS1" |
(defpackage "DS1" |
22 |
(:use) |
(:use) |
23 |
(:intern "C" "D") |
(:intern "C" "D") |
24 |
(:export "A" "B"))) |
(:export "A" "B"))) |
25 |
|
|
26 |
(ignore-errors |
(report-and-ignore-errors |
27 |
(defpackage "DS2" |
(defpackage "DS2" |
28 |
(:use) |
(:use) |
29 |
(:intern "E" "F") |
(:intern "E" "F") |
30 |
(:export "G" "H" "A"))) |
(:export "G" "H" "A"))) |
31 |
|
|
32 |
(ignore-errors |
(report-and-ignore-errors |
33 |
(defpackage "DS3" |
(defpackage "DS3" |
34 |
(:shadow "B") |
(:shadow "B") |
35 |
(:shadowing-import-from "DS1" "A") |
(:shadowing-import-from "DS1" "A") |
37 |
(:export "A" "B" "G" "I" "J" "K") |
(:export "A" "B" "G" "I" "J" "K") |
38 |
(:intern "L" "M"))) |
(:intern "L" "M"))) |
39 |
|
|
40 |
(ignore-errors |
(report-and-ignore-errors |
41 |
(defpackage "DS4" |
(defpackage "DS4" |
42 |
(:shadowing-import-from "DS1" "B") |
(:shadowing-import-from "DS1" "B") |
43 |
(:use "DS1" "DS3") |
(:use "DS1" "DS3") |