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

Diff of /gcl/ansi-tests/packages-10.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 50  Line 50 
50                     (return-from fail nil))                     (return-from fail nil))
51                   (multiple-value-bind (sym2 access2)                   (multiple-value-bind (sym2 access2)
52                       (find-symbol (symbol-name sym) pkg)                       (find-symbol (symbol-name sym) pkg)
53                     (unless (or (eq sym sym2)                     (unless (or (eqt sym sym2)
54                                 (member sym2 (PACKAGE-SHADOWING-SYMBOLS pkg)))                                 (member sym2 (PACKAGE-SHADOWING-SYMBOLS pkg)))
55                       (unless (> fail-count +fail-count-limit+)                       (unless (> fail-count +fail-count-limit+)
56                         (format t "Not same symbol: ~S ~S~%" sym sym2))                         (format t "Not same symbol: ~S ~S~%" sym sym2))
# Line 58  Line 58 
58                         (format t "Further messages suppressed~%"))                         (format t "Further messages suppressed~%"))
59                       (incf fail-count)                       (incf fail-count)
60                       (return-from fail nil))                       (return-from fail nil))
61                     (unless  (eq access access2)                     (unless  (eqt access access2)
62                       (unless (> fail-count +fail-count-limit+)                       (unless (> fail-count +fail-count-limit+)
63                         (format t "Not same access type: ~S ~S ~S~%"                         (format t "Not same access type: ~S ~S ~S~%"
64                                 sym access access2))                                 sym access access2))
# Line 74  Line 74 
74                   (do-symbols (sym p)                   (do-symbols (sym p)
75                     (multiple-value-bind (sym2 access)                     (multiple-value-bind (sym2 access)
76                         (find-symbol (symbol-name sym) p)                         (find-symbol (symbol-name sym) p)
77                       (unless (eq sym sym2)                       (unless (eqt sym sym2)
78                         (unless (> fail-count +fail-count-limit+)                         (unless (> fail-count +fail-count-limit+)
79                           (format t "Not same symbol (2): ~S ~S~%"                           (format t "Not same symbol (2): ~S ~S~%"
80                                   sym sym2))                                   sym sym2))

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