/[gcl]/gcl/ansi-tests/upgraded-array-element-type.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/upgraded-array-element-type.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pfdietz, Sun Jun 26 14:52:07 2005 UTC revision 1.8 by pfdietz, Tue Jun 28 14:16:52 2005 UTC
# Line 55  Line 55 
55  (deftest upgraded-array-element-type.4  (deftest upgraded-array-element-type.4
56    (loop for type in *upgraded-array-types-to-check*    (loop for type in *upgraded-array-types-to-check*
57          for upgraded-type = (upgraded-array-element-type type)          for upgraded-type = (upgraded-array-element-type type)
58          always (empirical-subtypep type upgraded-type))          unless (empirical-subtypep type upgraded-type)
59    t)          collect (list type upgraded-type))
60      nil)
61    
62  ;; Include an environment (NIL, denoting the default null lexical  ;; Include an environment (NIL, denoting the default null lexical
63  ;; environment)  ;; environment)
# Line 64  Line 65 
65  (deftest upgraded-array-element-type.5  (deftest upgraded-array-element-type.5
66    (loop for type in *upgraded-array-types-to-check*    (loop for type in *upgraded-array-types-to-check*
67          for upgraded-type = (upgraded-array-element-type type nil)          for upgraded-type = (upgraded-array-element-type type nil)
68          always (empirical-subtypep type upgraded-type))          unless (empirical-subtypep type upgraded-type)
69    t)          collect (list type upgraded-type))
70      nil)
71    
72  (deftest upgraded-array-element-type.6  (deftest upgraded-array-element-type.6
73    (macrolet    (macrolet

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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