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

Diff of /gcl/ansi-tests/packages-11.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 15  Line 15 
15       (safely-delete-package "X")       (safely-delete-package "X")
16       (let* ((p (make-package "X" :use nil))       (let* ((p (make-package "X" :use nil))
17              (r (export (intern "X" p) p)))              (r (export (intern "X" p) p)))
18         (multiple-value-bind (sym1 access1)         (multiple-value-bind* (sym1 access1)
19             (find-symbol "X" p)             (find-symbol "X" p)
20           (unexport sym1 p)           (unexport sym1 p)
21           (multiple-value-bind (sym2 access2)           (multiple-value-bind* (sym2 access2)
22               (find-symbol "X" p)               (find-symbol "X" p)
23             (and (eqt r t)             (and (eqt r t)
24                  (eqt sym1 sym2)                  (eqt sym1 sym2)
# Line 35  Line 35 
35       (safely-delete-package "X")       (safely-delete-package "X")
36       (let* ((p (make-package "X" :use nil))       (let* ((p (make-package "X" :use nil))
37              (r (export (intern "X" p) p)))              (r (export (intern "X" p) p)))
38         (multiple-value-bind (sym1 access1)         (multiple-value-bind* (sym1 access1)
39             (find-symbol "X" p)             (find-symbol "X" p)
40           (unexport (list sym1) "X")           (unexport (list sym1) "X")
41           (multiple-value-bind (sym2 access2)           (multiple-value-bind* (sym2 access2)
42               (find-symbol "X" p)               (find-symbol "X" p)
43             (and (eqt sym1 sym2)             (and (eqt sym1 sym2)
44                  (eqt r t)                  (eqt r t)
# Line 56  Line 56 
56       (let* ((p (make-package "X" :use nil))       (let* ((p (make-package "X" :use nil))
57              (r1 (export (intern "X" p) p))              (r1 (export (intern "X" p) p))
58              (r2 (export (intern "Y" p) p)))              (r2 (export (intern "Y" p) p)))
59         (multiple-value-bind (sym1 access1)         (multiple-value-bind* (sym1 access1)
60             (find-symbol "X" p)             (find-symbol "X" p)
61           (multiple-value-bind (sym1a access1a)           (multiple-value-bind* (sym1a access1a)
62               (find-symbol "Y" p)               (find-symbol "Y" p)
63             (unexport (list sym1 sym1a) '#:|X|)             (unexport (list sym1 sym1a) '#:|X|)
64             (multiple-value-bind (sym2 access2)             (multiple-value-bind* (sym2 access2)
65                 (find-symbol "X" p)                 (find-symbol "X" p)
66               (multiple-value-bind (sym2a access2a)               (multiple-value-bind* (sym2a access2a)
67                   (find-symbol "Y" p)                   (find-symbol "Y" p)
68                 (and (eqt sym1 sym2)                 (and (eqt sym1 sym2)
69                      (eqt sym1a sym2a)                      (eqt sym1a sym2a)
# Line 85  Line 85 
85       (safely-delete-package "X")       (safely-delete-package "X")
86       (let* ((p (make-package "X" :use nil))       (let* ((p (make-package "X" :use nil))
87              (r (export (intern "X" p) p)))              (r (export (intern "X" p) p)))
88         (multiple-value-bind (sym1 access1)         (multiple-value-bind* (sym1 access1)
89             (find-symbol "X" p)             (find-symbol "X" p)
90           (unexport (list sym1) #\X)           (unexport (list sym1) #\X)
91           (multiple-value-bind (sym2 access2)           (multiple-value-bind* (sym2 access2)
92               (find-symbol "X" p)               (find-symbol "X" p)
93             (and (eqt sym1 sym2)             (and (eqt sym1 sym2)
94                  (eqt r t)                  (eqt r t)
# Line 121  Line 121 
121       (let ((p (make-package "X" :use nil)))       (let ((p (make-package "X" :use nil)))
122         (let* ((sym (intern "FOO" p))         (let* ((sym (intern "FOO" p))
123                (r (unexport sym p)))                (r (unexport sym p)))
124           (multiple-value-bind (sym2 access)           (multiple-value-bind* (sym2 access)
125               (find-symbol "FOO" p)               (find-symbol "FOO" p)
126             (and (eqt r t)             (and (eqt r t)
127                  (eqt access :internal)                  (eqt access :internal)

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