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

Diff of /gcl/ansi-tests/packages-04.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              (and (null sym1)              (and (null sym1)
20                   (null status1)                   (null status1)
21                   (string= (symbol-name sym2) "FOO")                   (string= (symbol-name sym2) "FOO")
22                   (eq (symbol-package sym2) p)                   (eqt (symbol-package sym2) p)
23                   (eq status2 :internal)                   (eqt status2 :internal)
24                   (progn (delete-package p) t)))))                   (progn (delete-package p) t)))))
25    t)    t)
26    
# Line 34  Line 34 
34              (and (null sym1)              (and (null sym1)
35                   (null status1)                   (null status1)
36                   (string= (symbol-name sym2) "FOO")                   (string= (symbol-name sym2) "FOO")
37                   (eq (symbol-package sym2) p)                   (eqt (symbol-package sym2) p)
38                   (eq status2 :internal)                   (eqt status2 :internal)
39                   (progn (delete-package p) t)))))                   (progn (delete-package p) t)))))
40    t)    t)

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