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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 18  Line 18 
18            (unless (packagep p2)            (unless (packagep p2)
19              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
20              (return p2))              (return p2))
21            (unless (and (eq p p2)            (unless (and (eqt p p2)
22                         (equal (package-name p2) "TEST2"))                         (equal (package-name p2) "TEST2"))
23              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
24              (ignore-errors (delete-package p2))              (ignore-errors (delete-package p2))
# Line 37  Line 37 
37            (unless (packagep p2)            (unless (packagep p2)
38              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
39              (return p2))              (return p2))
40            (unless (and (eq p p2)            (unless (and (eqt p p2)
41                         (equal (package-name p2) "TEST2")                         (equal (package-name p2) "TEST2")
42                         (null (set-exclusive-or nicknames                         (null (set-exclusive-or nicknames
43                                                 (package-nicknames p2)                                                 (package-nicknames p2)
# Line 59  Line 59 
59            (unless (packagep p2)            (unless (packagep p2)
60              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
61              (return p2))              (return p2))
62            (unless (and (eq p p2)            (unless (and (eqt p p2)
63                         (equal (package-name p2) "TEST2")                         (equal (package-name p2) "TEST2")
64                         (equal                         (equal
65                          (sort (copy-list (package-nicknames p2))                          (sort (copy-list (package-nicknames p2))
# Line 85  Line 85 
85            (unless (packagep p2)            (unless (packagep p2)
86              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
87              (return p2))              (return p2))
88            (unless (and (eq p p2)            (unless (and (eqt p p2)
89                         (equal (package-name p2) "TEST2")                         (equal (package-name p2) "TEST2")
90                         (null (set-exclusive-or nicknames                         (null (set-exclusive-or nicknames
91                                                 (package-nicknames p2)                                                 (package-nicknames p2)
# Line 107  Line 107 
107            (unless (packagep p2)            (unless (packagep p2)
108              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
109              (return p2))              (return p2))
110            (unless (and (eq p p2)            (unless (and (eqt p p2)
111                         (equal (package-name p2) "G")                         (equal (package-name p2) "G")
112                         (null (set-exclusive-or nicknames                         (null (set-exclusive-or nicknames
113                                                 (package-nicknames p2)                                                 (package-nicknames p2)
# Line 130  Line 130 
130            (unless (packagep p2)            (unless (packagep p2)
131              (ignore-errors (delete-package p))              (ignore-errors (delete-package p))
132              (return p2))              (return p2))
133            (unless (and (eq p p2)            (unless (and (eqt p p2)
134                         (equal (package-name p2) "TEST2")                         (equal (package-name p2) "TEST2")
135                         (equal                         (equal
136                          (sort (copy-list (package-nicknames p2))                          (sort (copy-list (package-nicknames p2))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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