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

Diff of /gcl/ansi-tests/packages-05.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 19  Line 19 
19                (find-symbol "FOO" p)                (find-symbol "FOO" p)
20              (prog1              (prog1
21                  (and sym2                  (and sym2
22                       (eq (symbol-package sym2) p)                       (eqt (symbol-package sym2) p)
23                       (string= (symbol-name sym2) "FOO")                       (string= (symbol-name sym2) "FOO")
24                       (eq sym sym2)                       (eqt sym sym2)
25                       (eq status :external))                       (eqt status :external))
26                (delete-package p)))))                (delete-package p)))))
27        return-value)        return-value)
28    t)    t)
# Line 36  Line 36 
36                     (find-symbol "FOO" p)                     (find-symbol "FOO" p)
37                   (prog1                   (prog1
38                       (and sym2                       (and sym2
39                            (eq (symbol-package sym2) p)                            (eqt (symbol-package sym2) p)
40                            (string= (symbol-name sym2) "FOO")                            (string= (symbol-name sym2) "FOO")
41                            (eq sym sym2)                            (eqt sym sym2)
42                            (eq status :external))                            (eqt status :external))
43                     (delete-package p))))))                     (delete-package p))))))
44    t)    t)
45    

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