Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Oct 14 12:51:13 2002 UTC | revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | |
---|---|---|
# | Line 93 | Line 93 |
93 | (equal (package-name P3) "P3")) | (equal (package-name P3) "P3")) |
94 | (return 'fail1)) | (return 'fail1)) |
95 | ||
96 | (unless (eq (symbol-package S1) P1) | (unless (eqt (symbol-package S1) P1) |
97 | (return 'fail2)) | (return 'fail2)) |
98 | (unless (equal (prin1-to-string S1) "P1:S1") | (unless (equal (prin1-to-string S1) "P1:S1") |
99 | (return 'fail3)) | (return 'fail3)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |