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

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

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

revision 1.4 by pfdietz, Sat Jan 18 18:14:02 2003 UTC revision 1.5 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 21  Line 21 
21                  (p2 (make-package "TEST5" :use '("TEST4")))                  (p2 (make-package "TEST5" :use '("TEST4")))
22                  (r1 (package-shadowing-symbols "TEST4"))                  (r1 (package-shadowing-symbols "TEST4"))
23                  (r2 (package-shadowing-symbols "TEST5")))                  (r2 (package-shadowing-symbols "TEST5")))
24             (multiple-value-bind (s1 kind1)             (multiple-value-bind* (s1 kind1)
25                 (find-symbol "A" p1)                 (find-symbol "A" p1)
26               (multiple-value-bind (s2 kind2)               (multiple-value-bind* (s2 kind2)
27                   (find-symbol "A" p2)                   (find-symbol "A" p2)
28                 (let ((r3 (shadow "A" p2)))                 (let ((r3 (shadow "A" p2)))
29                   (multiple-value-bind (s3 kind3)                   (multiple-value-bind* (s3 kind3)
30                       (find-symbol "A" p2)                       (find-symbol "A" p2)
31                     (list                     (list
32                      (package-name p1)                      (package-name p1)
# Line 61  Line 61 
61              (p2 (make-package "H" :use '("G")))              (p2 (make-package "H" :use '("G")))
62              (r1 (package-shadowing-symbols "G"))              (r1 (package-shadowing-symbols "G"))
63              (r2 (package-shadowing-symbols "H")))              (r2 (package-shadowing-symbols "H")))
64         (multiple-value-bind (s1 kind1)         (multiple-value-bind* (s1 kind1)
65             (find-symbol "A" p1)             (find-symbol "A" p1)
66           (multiple-value-bind (s2 kind2)           (multiple-value-bind* (s2 kind2)
67               (find-symbol "A" p2)               (find-symbol "A" p2)
68             (let ((r3 (shadow "A" "H")))             (let ((r3 (shadow "A" "H")))
69               (multiple-value-bind (s3 kind3)               (multiple-value-bind* (s3 kind3)
70                   (find-symbol "A" p2)                   (find-symbol "A" p2)
71                 (prog1                 (prog1
72                     (list (package-name p1) (package-name p2)                     (list (package-name p1) (package-name p2)
# Line 99  Line 99 
99              (p2 (make-package "H" :use '("G")))              (p2 (make-package "H" :use '("G")))
100              (r1 (package-shadowing-symbols "G"))              (r1 (package-shadowing-symbols "G"))
101              (r2 (package-shadowing-symbols "H")))              (r2 (package-shadowing-symbols "H")))
102         (multiple-value-bind (s1 kind1)         (multiple-value-bind* (s1 kind1)
103             (find-symbol "A" p1)             (find-symbol "A" p1)
104           (multiple-value-bind (s2 kind2)           (multiple-value-bind* (s2 kind2)
105               (find-symbol "A" p2)               (find-symbol "A" p2)
106             (let ((r3 (shadow "A" #\H)))             (let ((r3 (shadow "A" #\H)))
107               (multiple-value-bind (s3 kind3)               (multiple-value-bind* (s3 kind3)
108                   (find-symbol "A" p2)                   (find-symbol "A" p2)
109                 (prog1                 (prog1
110                     (list (package-name p1) (package-name p2)                     (list (package-name p1) (package-name p2)
# Line 134  Line 134 
134           (make-package :G)           (make-package :G)
135           (let ((s1 (intern "X" :G)))           (let ((s1 (intern "X" :G)))
136             (shadow "X" :G)             (shadow "X" :G)
137             (multiple-value-bind (s2 kind)             (multiple-value-bind* (s2 kind)
138                 (find-symbol "X" :G)                 (find-symbol "X" :G)
139               (list (eqt s1 s2)               (list (eqt s1 s2)
140                     (symbol-name s2)                     (symbol-name s2)
# Line 156  Line 156 
156           (export (intern "X" :G) :G)           (export (intern "X" :G) :G)
157           (make-package :H :use '("G"))           (make-package :H :use '("G"))
158           (shadow "X" :H)           (shadow "X" :H)
159           (multiple-value-bind (s1 kind1)           (multiple-value-bind* (s1 kind1)
160               (find-symbol "X" :H)               (find-symbol "X" :H)
161             (shadow "X" :H)             (shadow "X" :H)
162             (multiple-value-bind (s2 kind2)             (multiple-value-bind* (s2 kind2)
163                 (find-symbol "X" :H)                 (find-symbol "X" :H)
164               (list (eqt s1 s2) kind1 kind2))))               (list (eqt s1 s2) kind1 kind2))))
165         (error (c) c))         (error (c) c))

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