/[gcl]/gcl/ansi-tests/packages-00.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-00.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Thu Feb 20 13:12:14 2003 UTC revision 1.4 by pfdietz, Thu Mar 6 04:11:48 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7  (declaim (optimize (safety 3)))  (declaim (optimize (safety 3)))
8    
9  (defpackage "A"  (ignore-errors
10    (:use)    (defpackage "A"
11    (:nicknames "Q")      (:use)
12    (:export "FOO"))      (:nicknames "Q")
13        (:export "FOO")))
14  (defpackage "B"  
15    (:use "A")  (ignore-errors
16    (:export "BAR"))    (defpackage "B"
17        (:use "A")
18  (defpackage "DS1"      (:export "BAR")))
19    (:use)  
20    (:intern "C" "D")  (ignore-errors
21    (:export "A" "B"))    (defpackage "DS1"
22        (:use)
23  (defpackage "DS2"      (:intern "C" "D")
24    (:use)      (:export "A" "B")))
25    (:intern "E" "F")  
26    (:export "G" "H" "A"))  (ignore-errors
27      (defpackage "DS2"
28  (defpackage "DS3"      (:use)
29    (:shadow "B")      (:intern "E" "F")
30    (:shadowing-import-from "DS1" "A")      (:export "G" "H" "A")))
31    (:use "DS1" "DS2")  
32    (:export "A" "B" "G" "I" "J" "K")  (ignore-errors
33    (:intern "L" "M"))    (defpackage "DS3"
34        (:shadow "B")
35  (defpackage "DS4"      (:shadowing-import-from "DS1" "A")
36    (:shadowing-import-from "DS1" "B")      (:use "DS1" "DS2")
37    (:use "DS1" "DS3")      (:export "A" "B" "G" "I" "J" "K")
38    (:intern "X" "Y" "Z")      (:intern "L" "M")))
39    (:import-from "DS2" "F"))  
40    (ignore-errors
41      (defpackage "DS4"
42        (:shadowing-import-from "DS1" "B")
43        (:use "DS1" "DS3")
44        (:intern "X" "Y" "Z")
45        (:import-from "DS2" "F")))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26