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

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

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

revision 1.8 by pfdietz, Sat Jan 18 18:14:02 2003 UTC revision 1.9 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 112  Line 112 
112          (mapcar          (mapcar
113           #'notnot           #'notnot
114           (list           (list
115            (not (not (packagep p)))            (packagep p)
116            (equal (package-name p)              "H")            (equal (package-name p)              "H")
117            (equal (package-use-list p)          nil)            (equal (package-use-list p)          nil)
118            (equal (package-used-by-list p)      nil)            (equal (package-used-by-list p)      nil)
119            (equal (package-nicknames p)         nil)            (equal (package-nicknames p)         nil)
120            (eql (num-symbols-in-package p) 1)            (eql (num-symbols-in-package p) 1)
121            (multiple-value-bind (sym access)            (multiple-value-bind* (sym access)
122                (find-symbol "foo" p)                (find-symbol "foo" p)
123              (and (eqt access :internal)              (and (eqt access :internal)
124                   (equal (symbol-name sym) "foo")                   (equal (symbol-name sym) "foo")
# Line 143  Line 143 
143         (mapcar         (mapcar
144          #'notnot          #'notnot
145          (list          (list
146           (not (not (packagep p)))           (packagep p)
147           (equal (package-name p)              "H")           (equal (package-name p)              "H")
148           (equal (package-use-list p)          nil)           (equal (package-use-list p)          nil)
149           (equal (package-used-by-list p)      nil)           (equal (package-used-by-list p)      nil)
150           (equal (package-nicknames p)         nil)           (equal (package-nicknames p)         nil)
151           (eql (num-symbols-in-package p) 1)           (eql (num-symbols-in-package p) 1)
152           (multiple-value-bind (sym access)           (multiple-value-bind* (sym access)
153               (find-symbol "f" p)               (find-symbol "f" p)
154             (and (eqt access :internal)             (and (eqt access :internal)
155                  (equal (symbol-name sym) "f")                  (equal (symbol-name sym) "f")
# Line 188  Line 188 
188             (mapcar             (mapcar
189              #'notnot              #'notnot
190              (list              (list
191               (not (not (packagep p)))               (packagep p)
192               (equal (package-name p)              "H")               (equal (package-name p)              "H")
193               (equal (package-use-list p)          nil)               (equal (package-use-list p)          nil)
194               (equal (package-used-by-list p)      nil)               (equal (package-used-by-list p)      nil)
195               (equal (package-nicknames p)         nil)               (equal (package-nicknames p)         nil)
196               (eql (num-symbols-in-package p) 1)               (eql (num-symbols-in-package p) 1)
197               (multiple-value-bind (sym access)               (multiple-value-bind* (sym access)
198                   (find-symbol "A" p)                   (find-symbol "A" p)
199                 (and (eqt access :internal)                 (and (eqt access :internal)
200                      (equal (symbol-name sym) "A")                      (equal (symbol-name sym) "A")
# Line 231  Line 231 
231                 (mapcar                 (mapcar
232                  #'notnot                  #'notnot
233                  (list                  (list
234                   (not (not (packagep p)))                   (packagep p)
235                   (equal (package-name p)              "H")                   (equal (package-name p)              "H")
236                   (equal (package-use-list p)          nil)                   (equal (package-use-list p)          nil)
237                   (equal (package-used-by-list p)      nil)                   (equal (package-used-by-list p)      nil)
238                   (equal (package-nicknames p)         nil)                   (equal (package-nicknames p)         nil)
239                   (equal (package-shadowing-symbols p) nil)                   (equal (package-shadowing-symbols p) nil)
240                   (eql (num-symbols-in-package p) 2)                   (eql (num-symbols-in-package p) 2)
241                   (multiple-value-bind (sym access)                   (multiple-value-bind* (sym access)
242                       (find-symbol "A" p)                       (find-symbol "A" p)
243                     (and (eqt access :internal)                     (and (eqt access :internal)
244                          (equal (symbol-name sym) "A")                          (equal (symbol-name sym) "A")
245                          (equal (symbol-package sym) pg)))                          (equal (symbol-package sym) pg)))
246                   (multiple-value-bind (sym access)                   (multiple-value-bind* (sym access)
247                       (find-symbol "B" p)                       (find-symbol "B" p)
248                     (and (eqt access :internal)                     (and (eqt access :internal)
249                          (equal (symbol-name sym) "B")                          (equal (symbol-name sym) "B")
# Line 270  Line 270 
270           (mapcar           (mapcar
271            #'notnot            #'notnot
272            (list            (list
273             (not (not (packagep p)))             (packagep p)
274             (equal (package-name p)              "H")             (equal (package-name p)              "H")
275             (equal (package-use-list p)          nil)             (equal (package-use-list p)          nil)
276             (equal (package-used-by-list p)      nil)             (equal (package-used-by-list p)      nil)
# Line 280  Line 280 
280             (loop             (loop
281              for s in '("Q" "Z" "R") do              for s in '("Q" "Z" "R") do
282              (unless              (unless
283                  (multiple-value-bind (sym access)                  (multiple-value-bind* (sym access)
284                      (find-symbol s p)                      (find-symbol s p)
285                    (and (eqt access :external)                    (and (eqt access :external)
286                         (equal (symbol-name sym) s)                         (equal (symbol-name sym) s)
# Line 306  Line 306 
306           (mapcar           (mapcar
307            #'notnot            #'notnot
308            (list            (list
309             (not (not (packagep p)))             (packagep p)
310             (equal (package-name p)              "H")             (equal (package-name p)              "H")
311             (equal (package-use-list p)          nil)             (equal (package-use-list p)          nil)
312             (equal (package-used-by-list p)      nil)             (equal (package-used-by-list p)      nil)
# Line 316  Line 316 
316             (loop             (loop
317              for s in '("Q" "Z" "R") do              for s in '("Q" "Z" "R") do
318              (unless              (unless
319                  (multiple-value-bind (sym access)                  (multiple-value-bind* (sym access)
320                      (find-symbol s p)                      (find-symbol s p)
321                    (and (eqt access :internal)                    (and (eqt access :internal)
322                         (equal (symbol-name sym) s)                         (equal (symbol-name sym) s)
# Line 572  Line 572 
572                   (unless                   (unless
573                       (every                       (every
574                        #'(lambda (str acc pkg)                        #'(lambda (str acc pkg)
575                            (multiple-value-bind                            (multiple-value-bind*
576                                (sym access)                                (sym access)
577                                (find-symbol str p)                                (find-symbol str p)
578                              (or                              (or

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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