/[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.4 by pfdietz, Thu Mar 6 04:11:48 2003 UTC revision 1.5 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 6  Line 6 
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")
# Line 37  Line 37 
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")

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

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