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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

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

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