Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sat Apr 23 14:33:35 2005 UTC | revision 1.7 by pfdietz, Sat Apr 23 18:48:50 2005 UTC | |
---|---|---|
# | Line 17 | Line 17 |
17 | (:use "A") | (:use "A") |
18 | (:export "BAR"))) | (:export "BAR"))) |
19 | ||
20 | (defun set-up-packages () | |
21 | (safely-delete-package "A") | |
22 | (safely-delete-package "B") | |
23 | (safely-delete-package "Q") | |
24 | (defpackage "A" | |
25 | (:use) | |
26 | (:nicknames "Q") | |
27 | (:export "FOO")) | |
28 | (defpackage "B" | |
29 | (:use "A") | |
30 | (:export "BAR"))) | |
31 | ||
32 | (report-and-ignore-errors | (report-and-ignore-errors |
33 | (defpackage "FS-A" | (defpackage "FS-A" |
34 | (:use) | (:use) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |