/[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.1 by pfdietz, Thu Jan 23 04:11:59 2003 UTC revision 1.2 by pfdietz, Tue Jan 28 03:05:19 2003 UTC
# Line 62  Line 62 
62          for upgraded-type = (upgraded-array-element-type type nil)          for upgraded-type = (upgraded-array-element-type type nil)
63          always (empirical-subtypep type upgraded-type))          always (empirical-subtypep type upgraded-type))
64    t)    t)
65    
66    (deftest upgraded-array-element-type.6
67      (macrolet
68          ((%foo (&environment env)
69                 (empirical-subtypep
70                  'bit
71                  (upgraded-array-element-type 'bit env))))
72        (%foo))
73      t)
74                      
75            
76  ;;; Error tests  ;;; Error tests
77    

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